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Vous avez un 1040 STE 
Vous êtes un fan de musique. 
Equipez-vous à prix réduit 





sciale 


L oibent moe 


Le clavier BONTEMPI AZ 7500 
Dernier-né de la gamme BONTEMPI, il est de loin le plus performant. Il saura vous satisfaire grâce à ses 
multiples qualités: Clavier MIDI «splitable» + 61 grandes touches + 32 sons «PCM Digital» e 24 rythmes PCM 
technologie numérique + 7 voies d'accompagnement, polyphonique (12 notes) + 4 effets sonores intégrés. Il 
s’harmonise idéalement avec le 1040 STE en exploitant toutes ses performances sur le plan musical. Le 
BONTEMPI AZ 7500 est l'outil qui vous permet de mettre en application vos progrès musicaux. 


+ 


Le logiciel BIG BOSS Piano 
Dernier-né de la société RYTHM’N SOFT, BIG BOSS Piano, est le «nec plus ultra» des logiciels musicaux: 
Cours de piano classique et moderne + clavier guide + défilement des partitions en temps réel + impression 
des partitions » quantisation + c’est aussi un séquenceur de 25 pistes permettant le chargement simultané de 
10 morceaux. Le logiciel BIG BOSS Piano est une méthode éducative simple (assistance permanente) et 
rapide (10 lecons progressives) pour que le solfège ne soit plus une contrainte insurmontable. Laissez libre 
cours à voire inspiration et réveillez le musicien qui sommeille en vous. 
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& JEU DE ROLE 

© Programmation d’un jeu de rôle (1) 

La programmation d’un jeu de rôle est quelque cho- 
se de complexe. Cet article explique certains prin- 
cipes de base utilisés dans des jeux comme Ultima et 
Dungeon Master. 

® Programmation d’un jeu de rôle (II) 

La progrämmation d’un jeu de rôle type Ultima pas- 
se par la réalisation d’un éditeur de carte permettant 
de créer le monde dans lequel le joueur doit évoluer. 
€ Programmation d’un jeu de rôle (III) 

Voici un petit jeu de rôle où le joueur se déplace sur 
une carte graphique de grande dimension et fañt de 
dangereuses rencontres. 

@ Programmation d’un jeu de rôle (TV) 

Ce programme pérmet de simuler le déroulement 
d'un combat entré un personnage et une créature 
quelconque. 


JEU D'AVENTURE 

@ Jeu d'aventure graphique 

Un petit jeu d'aventure du type Bat ou Final Com- 
mand, fonctionnant entièrement à la souris que vous 
pourrez! modifier et compléter pour créer votre 
propre jeu. 


BH PROGRAMMATION DU STE 

@ 4096 couleurs et scrolling hard STE 

Maftrisez les nouvelles fonctions graphiques du STE 

dans vos programmes en GEÆA Basic, 

€ Scrolling hard STE horizontal 

Toutes les techniques pour réaliser des scrollings hard 
STE horizontaux et multidirectionnels. 


B GRAPHISME 

_@ Bibliothèque de formes de souris 

Une bibliothèque de 40 formes de souris que vous 
pourrez employer dans vos programmes pour leur 
donner un air plus sympathique. 
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© Effets spéciaux graphiques 

Les effets vidéo permettent d’agrémenter vos applica- 
tions graphiques et vos jeux. Voici quelques conseils 
et explications pour bien en comprendre le fonction- 
nement. 

© 4096 images sur une disquette 

Les images des jeux d’arcades sont construites à par- 
tir d'éléments graphiques collés les uns contre les 
autres, rendant ainsi possible le codage d’une image 
écran en quelques centaines d’octets. 

© Fabriquez vos images par assemblage de sprites 
Nous vous présentons ici une méthode permettant 
de dessiner des images à partir de sprites, technique 
beaucoup utilisée par les développeurs de jeux d’a- 
ventures pour fabriquer des images avec peu de place 
mémoire, 

® Instruction RC__COPY 

L'instruction RC__COPY est une instruction gra- 
phique du GFA Basic 3.0 permettant de réaliser des : 
affichages rapides et des effets spéciaux graphiques 
originaux. 

€ Les opérateurs graphiques logiques 

Les fonctions graphiques logiques du GFA Basic per- 
mettent de réaliser de nombreux effets, graphiques 
(affichage de sprites, vidéo inverse, effets spéciaux, 
etc.) 
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Créez votre propre monde 


La programmation d'un jeu de rôle est quelque chose de 
complexe. Cet article explique certains principes de base utilisés 
dans des jeux comme Ultima et Dungeon Master. 


Description 


Dans les jeux de rôle informatiques, un joueur dirige les actions 
d’une équipe de personnages dans un monde particulier. Elles peu- 
vent être variées: exploration, combat, discussion, commerce, etc. 

Les personnages sont définis par des caractéristiques physiques, men- 
tales et des compétences. La manière dont ils agissent sur le monde 
extérieur dépend de ces dernières (un personnage très fort physique- 
ment se battra bien, un personnage très intelligent apprendra vite). 
Chaque personnage peut posséder un certain nombre d’objets divers 
et variés (vêtements et armures pour se protéger des dangers du mon- 
de extérieur, armes pour combattre, argent, nourriture, etc.) 


Caractéristiques des personnages 


Les personnages sont définis par des caractéristiques numériques. 
Leur nombre peut varier selon le degré de simulation. Je vous pro- 
pose ici un système simplifié comportant trois caractéristiques phy- 
siques (Force, Agilité, Constitution) et trois autres mentales (Intelli- 
gence, Volonté, Pouvoir). Le Pouvoir représente la capacité d’un per- 
sonnage à percevoir la nature véritable de l’univers. C’est une ca- 
ractéristique qui ne sert que pour la magie (univers médiéval fantas- 
tique) ou pour les pouvoirs mentaux (univers de science fiction). 


Echelle de référence 


Une valeur numérique ne signifie pas grand chose sans une échelle 
de référence. Pour donner une base de comparaison entre les ca- 
ractéristiques et la réalité, on considère que la valeur 10 correspond à 
la moyenne humaine. Un personnage avec une Force, une Dextérité 
et une Constitution de 10 est un homme tout à fait normal. Des 
personnages exceptionnels tels que Conan ou Rambo ont une force 
de 17 ou 18. 


Caractéristiques secondaires 


Nous venons de voir sont les caractéristiques principales. Un‘per- 
sonnage possède aussi un ensemble de caractéristiques secondaires, 


calculées à partir des principales. Elles définissent les réactions du 
personnage dans un cas précis. Ces caractéristiques secondaires peu- 
vent être: le nombre de points de vie, le bonus au dommage, la résis- 
tance au poison, la résistance aux maladies, etc. 

Le nombre de points de vie correspond à la vigueur d’un personna- 
ge. Plus il est robuste, plus il peut encaisser de coups avant de mou- 
rir. Un personnage chétif (avec une faible Constitution) meurt d’un 
coup un peu violent. Plus un personnage est fort, plus il cause de 
dommages à son adversaire. Le bonus’au combat simule cet effet. Il 
s'ajoute aux dommages causés par une arme. 

La résistance au poison est un pourcentage qui détermine les chances 
qu'a un personnage de résister au effets d’un poison. De même, la 
résistance à la maladie est un pourcentage qui détermine les chances 
qu’a un personnage de ne pas attraper une maladie. 


Stockage des caractéristiques 


Les caractéristiques principales et secondaires de tous les personnages 
sont stockées dans un tableau numérique. 

DIM def perso(4,30) 

1 = Force perso 
2 = Dextérité perso 
3 = Constitution 
! 4 = Intelligence 
5 = Volonté 

6 = Pouvoir 

! 7 = Points de vie 

! 8 = Bonus dommage 

! 9 = résistance au poison 


Calcul des caractéristiques secondaires 


Les caractéristiques secondaires sont calculées par le programme. Le 
bonus au dommage est en fonction de la Force. Le nombre de points 
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de vie peut être égal à la Constitution. La résistance au poison peut 
dépendre de la Constitution et de la Volonté. La valeur du bonus 
aux dommages est stockée dans un tableau. Cette technique permet 
de changer facilement la valeur d’un coefficient. Dans cet exemple, 
les bonus de dommages ne montent pas au delà de 18, mais rien ne 
nous empêche d’aller plus loin. Il peut servir pour des créatures non 
humaines (un éléphant a une force de 30). 


DIM bonus degat(18) 


PROCEDURE init bonus 


LOCAL i 

RESTORE bonus dommage 

FOR i=1 TO 18 

READ bonus degat(i) 

NEXT i 
RETURN 
1 
bonus dommage: » 
DATA 0,0,0,0,0,0,0,0,0,0,0,1,1,2,3,4,5,7 
Bonus dommage = bonus degat (force) 
points vie = constitution 


resist poison constitutiont+(volonte/2) 
resist maladies = constitutiontvolonte 


Les valeurs sont stockées dans le tableau def perso() à la suite des 
caractéristiques principales. 


Utilisation des caractéristiques secondaires 


Lorsqu'un personnage reçoit des dégâts (combat, empoisonnement, 
chute, etc.), le programme diminue son nombre de points de vie: Si 
celui-ci tombe à zéro, le personnage est mort. Si le personnage blessé 
reçoit des soins (guérisseur ou potions), le programme remonte le 
nombre. Les points de vie pouvant varier en cours de jeu, il faut 
séparer les points de vie théoriques des points de vie variables. 
Ceux-ci sont stockés dans un tableau spécial. 


DIM points _vie(4) 


Supposons qu’un personnage se fasse empoisonner à un moment 
quelconque du jeu, le programme doit alors déterminer l'effet du 
poison: il peut être sans effet sur le personnage ou le foudroyer sur 
place. La caractéristique Résistance au Poison est un pourcentage. Le 
programme tire un chiffre compris entre 1 et 100. Si le résultat est 
inférieur ou égal à la résistance au poison du personnage, tout va 
bien. Dans le cas contraire, il perd un certain nombre de points de 
vie (dépendant de la puissance du poison). 


Compétences 


En plus de ces caractéristiques physiques, un personnage sait faire un 
certain nombre de choses: se battre, soigner les blessures, évaluer la 
valeur d’un objet, etc. Ce sont des compétences. Elles sont définies 
sous la forme de pourcentages. Un personnage débutant a 10% de 
chance de toucher un ennemi au combat, alors qu’un combattant 
expérimenté a 90% de chance d’y parvenir. Les compétences les plus 


courantes dans un jeu de rôle basé sur un univers médiéval-fantas- 
tique sont: combattre, soigner, fabriquer des potions, chasser, trou- 
ver des herbes, dérober discrètement des objets, déceler les pièges et 
ouvrir des serrures. 


Mémorisation des compétences 


Les compétences des personnages sont stockées dans un tableau 
numérique. Chacune a son numéro d’ordre. Le premier indice du ta- 
bleau correspond au numéro du personnage. 


DIM competence(4, 100) 

Compétence combat 

Compétence soins 

Compétence trouver herbes 
Compétence fabriquer potions 
Compétence voler objets 


un 8 © © 
il 


Compétences de base 


Le degré de compétence d’un personnage dépend de ses dons natu- 
rels. Plus ses caractéristiques sont élevées, plus ses compétences de ba- 
se sont importantes. La capacité de combat de base peut dépendre de 
la Force, de la Dextérité et de l’Intelligence. La capacité de base de 
soins peut dépendre de la Dextérité et de l’Intelligence, etc. 

Lors de la création d’un personnage, une routine spécifique détermi- 
ne ses compétences de base à partir de ses caractéristiques. Dans l’e- 
xemple suivant, la compétence de combat de base est calculée en fai- 
sant la moyenne de la Force, la Dextérité et l’Intelligence, puis en 
comparant cette moyenne à une série de chiffres précis. Toutes les 
compétences de base sont calculées de la même manière. 


! COMPETENCE DE COMBAT DE BASE 
moyenne=(force+dexteritetintelligence)/3 
SELECT moyenne 
CASE 3 TO 11 
combat base=0 
CASE 12 TO 14 
combat _base=10 
CASE 15 TO 16 
combat. base=15 
CASE 17 
combat _base=20 
CASE 18 
combat. base=30 
ENDSELECT 


Métier des personnages 


En plus des compétences de base qui dépendent des caractéristiques, 
les personnages disposent de compétences professionnelles qu’ils ont 
appris dans leur jeunesse. Pour simplifier la programmation, on con- 
sidère qu’il n'existe qu’un petit nombre de métiers. Chacun augmen- 
te certaines compétences. Les personnages doivent obligatoirement 
choisir l’un des métiers proposés. La nature de ces derniers dépend 
de l’univers du jeu. Par exemple, on peut trouver les métiers suivants 
dans un univers médiéval-fantastique: guerrier, guérisseur et voleur. 
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Celui de guerrier apporte des compétences de combat, celui de 
guérisseur des compétences de soins et le métier de voleur des 
compétences de combat limitées, ainsi que des facilités pour dérober 
des objets et trouver des pièges. On trouve souvent le métier de sor- 
cier, mais la gestion de la magie est trop compliquée pour être 
abordée dans cet article. Nous y reviendrons ultérieurement. 

Le tableau métier() sert à mémoriser le métier de base des person- 
nages. La procédure INIT METIER initialise automatiquement les 
compétences professionnelles d’un personnage selon le métier choi- 
si. Les guerriers augmentent leurs compétences de combat de 40%. 
Les guérisseurs augmentent leurs compétences de soins, pour cher- 
cher des herbes et fabriquer des potions de 20%. Les voleurs aug- 
mentent leurs compétences de 10% en combat et de 30% sur le vol. 
Les compétences professionnelles s'ajoutent à celles de base. 


DIM metier(4) 

PROCEDURE init metier(perso) 
LOCAL metier“ 
metier%=metier(perso) 

SELECT metier“ 

CASE 1 | TEST GUERRIER 
ADD competence(perso, 1) ,40 

CASE 2 | TEST GUERISSEUR 
ADD competence(perso,2) ,20 
ADD competence(perso,3) ,20 
ADD competence(perso,4),20 

CASE 3 | TEST VOLEUR 
ADD competence(perso,1),10 
ADD competence(perso,5),30 

ENDSELECT 

RETURN 


Augmentation des compétences 


Les compétences peuvent augmenter avec le temps. Lorsqu'un per- : 


sonnage a vécu quelques aventures (explorer la région, tuer des 
monstres, trouver des trésors, etc.), il a acquis des points d’expérien- 
ce utilisables pour améliorer ses capacités. Il doit se rendre dans un 
lieu précis (université, professeur d'escrime) et échanger ses points 
d'expérience contre des points de compétences. 


Utilisation des compétences 


Si un personnage veut frapper un ennemi, le programme doit lire la 
compétence de combat du personnage et faire un tirage aléatoire. Si 
le résultat est inférieur ou égal à la compétence de combat, le coup 
porte. Il faut alors calculer sa force. Le calcul est fait en tenant comp- 
te du type d’arme utilisé pour frapper et du type de protection porté 
par l'ennemi. Lorsqu'un personnage veut accomplir une action par- 
ticulière, le programme suivra toujours la même démarche: calcul 
des chances de réussite de l’action, tirage d’une valeur aléatoire pour 
déterminer si l’action a réussi et traitement du résultat. Ce dernier 
point débouche sur des situations différentes, selon que l’action est 
réussié où non. Prenons un exemple où un personnage essaye de 
trouver des plantes dans un coin de forêt. En cas de réussite, le pro- 
gramme détermine quelle a été la plante trouvée. En cas d'échec, il 


ne se passe rien. Et maintenant, prenons un autre exemple où un 
personnage tente de voler la bourse d’un passant. En cas de réussite, 
il s’en empare sans problèmes. En cas d'échec, le passant s’aperçoit de 
la tentative de vol et peut décider de frapper le voleur. 


Création d’un personnage 


La création d’un personnage se fait en plusieurs étapes: tirage aléatoi- 
re des caractéristiques, calcul des caractéristiques secondaires, calcul 
des compétences de base et définition du métier du personnage. 

Les caractéristiques sont tirées au hasard afin de donner des person- 
nages différents. La technique de tirage la plus utilisée met en œuvre 
3 tirages différents: on tire 3 fois au hasard un nombre compris entre 
1 et 6. On additionne ensuite le tout. Le résultat est un nombre qui 
varie entre 3 et 18. Cette technique permet d'obtenir un maximum 
de résultats moyens (9,10,11) et un minimum de chiffres extrèmes 
(3,4,17,18). Cela correspond bien à la réalité où la majeure partie des 
gens ont des caractéristiques moyennes et où les extrêmes (force fa- 
buleuse, faiblesse pathologique, très grande dextérité, etc.) sont rares. 


Gestion des objets 


Elle pose de nombreux problèmes. Il faut définir leurs caractéris- 
tiques et les stocker quelque part en mémoire. Les personnages peu- 
vent posséder divers objets et en porter plusieurs sur eux (habille- 
ment, armes, armures, etc.) 


Classes d'objets 


Les objets sont définis par leurs effets sur l’environnement. Une ar- 
me est quelque chose qui fait mal. Un habit ou une armure est un 
objet qui exerce une fonction de protection. La nourriture est un 
objet qui redonne des forces, etc. Il existe des classes d'objets. Une 
épée et une hache sont des armes. Un morceau de:pain, de la viande 
grillée, un ragoût de mouton et des épinards sont de la nourriture. 
Un objet a une classe (Arme, Nourriture, Habits; etc.), et un type 
(Epée, Hache, Pain, Viande, etc.). Les objets d’une même classe ont 
la même fonction (toute les armes font des dégâts), mais la manière 
dont ils agissent dépend de leurs caractéristiques propre (un couteau 
cause moins de dégâts qu’une épée, un morceau de pain sec nourrit 
moins bien qu’un morceau de viande, etc.). 


Traitement des objets 


L'avantage de travailler avec des classes d'objets, c’est que le program- 
me n’a besoin que d’une seule routine de traitement par classe 
d’objet. Prenons comme exemple la nourriture. La fonction de la 
nourriture est de redonner force et vitalité à celui qui en mange. 
Considérons qu’un homme moyen a 20 points de vie. Après un 
jeûne d’une journée et diverses actions (déplacement, combat, etc.), 
il a perdu des forces. Il ne lui reste plus que 12 points de vie. Il a le 
choix entre plusieurs types de nourriture : pain sec, viande, ou 
fruits. Une portion de pain permet de récupérer 2 points de vie, une 
de viande 6 points et de fruits 3 points. La nourriture est définie par 
un nom et un chiffre représentant son effet. Pour la routine de traite- 
ment de la nourriture, la seule chose qui compte, c’est l'effet de la 
nourriture sur la vitalité du personnage. On peut donc s’amuser à 
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définir un grand nombre de nourritures différentes. On peut rajou- 
ter des caractéristiques supplémentaires afin d'améliorer le degré de 
réalisme: la nourriture peut avoir un prix. Il est possible qu’un per- 
sonnage préfère manger 3 portions de pain plutôt qu’une de viande 
si la viande coûte trop cher. Le prix peut être calculé dans n'importe 
quelle monnaie. 


Stockage des caractéristiques 
des objets en mémoire 


Les caractéristiques des objets sont stockées dans des tableaux de 
données. Chaque classe d’objet a son propre tableau. La classe d’un 
objet indique le tableau où il faut chercher ces caractéristiques, et le 
type de l’objet indique la position des caractéristiques dans le ta- 
bleau. 

Les caractéristiques des objets sont définies initialement par le pro- 
grammeur dans des lignes de DATA. Une routine d’initialisation 
spécifique charge les informations dans les tableaux de données cor- 
respondants. Afin de vous donner quelques exemples, nous allons 
définir les classes d'objets NOURRITURE, ARME, et ARMURE. 


Définition de la nourriture 


Les objets de type NOURRITURE sont définis par un nom, un 
chiffre représentant leur effet sur un personnage et un prix. Il faut 
deux tableaux pour mémoriser les ‘objets de ce type. Le premier ta- 
bleau contient le nom, le second la valeur de l'effet /’restaurateur” et 
le prix du produit. 


DIM def _nourriture$ (100) 

DIM def _nourriture(100,2) 

! def nourriture$(n) = Nom nourriture n 

! def nourriture(n,1) = Effet "restaurateur" 
! def nourriture(n,2) = Prix 


Les objets de type NOURRITURE sont définis dans des lignes de 
DATA. Les tableaux de données sont remplis par la routine 
INIT NOURRITURE Cette routine stockera le nombre d’objets lus 
dans la variable globale nb nourritures. 


PROCEDURE init nourriture 
LOCAL nom$,n 


n=0 
RESTORE nourritures 
DO 
READ nomÿ 
EXIT IF nom$="*FIN" 
INC n 


def_nourriture$(n)=nom$ 
READ def _nourriture(n,1) 
READ def _nourriture(n,2) 

LOOP 

nb_nourritures=n 

RETURN 

nourritures: 

DATA PAIN SEC,2,1 

DATA VIANDE GRILLEE,6,10 


DATA FRUITS,3,5 . 
DATA *FIN 


Le pain aura le numéro 1, la viande grillée aura le numéro 2, et les 
fruits porteront le numéro 3. Vous pouvez vous amuser à en définir 
bien d’autres types. 


Définition des armes 


Les armes servent à infliger des dégâts. L'importance des dommages 
dépend du type d’arme (un canif ne fait pas autant de dégâts qu’une 
hache de bataille). Pour définir le potentiel destructeur des armes, 
nous nous sommes basés sur le nombre de points de vie moyen des 
personnages. Avec une moyenne de 10 points de vie par personnage, 
nous avons défini les armes suivantes : poignard (2 points de dégâts), 
épée (5 points de dégâts), hache (5 points de dégâts) et hache de ba- 
taille (7 points de dégâts). Les armes sont définies par leur nom, 
leurs points de dégâts et leur prix. Elles sont stockées dans les ta: 
bleaux def arme$() et def arme(). 


DIM def _arme$(100) 

DIM def _arme(100,2) 

‘def arme(n) = Nom arme n 

‘def arme(n,1) = Dégât arme n 
"def arme(n,2) = Prix arme n 


(ll 


Les armes sont définies par le programmeur dans des lignes de DA- 
TA. La procédure INIT_ARMES remplie les tableaux def_arme$() et 
def_arme(). à 


PROCEDURE init_armes 
LOCAL nom$,n 
n=0 
RESTORE armes 
DO 
READ nom$ 
EXIT IF nom$="*FIN" 
INC n 
def_arme$ (n)=nom$ 
READ def_arme(n,1) 
READ def arme(n,2) 
LOOP 
nb _armes=n 
RETURN 
armes : 
! DATA nom, degat, prix 
DATA POIGNARD,2,30 
DATA MASSE,3,20 
DATA EPEE,5,200 
DATA EPEE LONGUE,6, 500 
DATA HACHE,5,130 
DATA HACHE DE BATAILLE,7,750 
DATA *FIN 


Les créatures rencontrées par les personnages ont des armes. Celles-ci 
peuvent être des objets manufacturés tels que des épées, des gourdins, 
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des haches, mais aussi des armes naturelles comme des griffes, des 
crocs, des tentacules, etc. 


DATA GRIFFES,4,-1 
DATA CROCS,5,-1 
DATA TENTACULES,3,-1 
DATA *FIN 


La valeur numérique -1 indique au programme qu’il s’agit d’armes 
naturelles, que l’on trouve uniquement sur des créatures, Les person- 
nages ne peuvent pas les acheter et s’en servir. Le programme aura 
besoin d'informations sur les armes en cours de jeu. Les fonctions 
DOMMAGE. ARME et PRIX_ARME permettent d’obtenir facilement ces in- 
formations. 


FUNCTION dommage arme (arme) 
RETURN def arme(arme,1) 
ENDFUNC 


FUNCTION prix arme(arme) 
RETURN def_arme(arme,2) 
ENDFUNC 


Définition des armures 


Les armures sont des systèmes défensifs. Au point de vue simulation, 
elles encaissent un certain nombre de points de dégâts. 

Une armure est définie par un nom, un potentiel de protection et 
un prix. 


DIM def armure$(100) 

DIM def armure(100,2) 

"def armure$(n) = Nom armure n 

"def armure(n,1) = Protection armure n 
"def armure(n,2) = Prix armure n 


Lorsqu’un-personnage reçoit des points de dégâts suite à une attaque, 
le programme doit tenir compte de la présence éventuelle d’une ar- 
mure et diminuer les dégâts en fonction du type d’armure. 


Dommages reçus = Dommages Reçus - Protection armure 


Les caractéristiques des armures sont définies dans des lignes de DA- 
TA, puis chargées dans les tableaux de données par une routine d’ini- 
tialisation spécifique. 


PROCEDURE init armures 

LOCAL nom$,n 

n=0 

RESTORE armures 

DO 
READ nom$ 
EXIT IF nom$="*FIN" 
INC n 
def_armure$(n)=nom$ 
READ def_armure(n,1) 


READ def armure(n,2) 
LOOP 
nb_armures=n 
RETURN armures: 
DATA Nom, Protection, Prix 
DATA HABITS DE MENDIANT,0,10 
DATA VESTE DE TOILE,0,20 
DATA VETEMENTS DE CUIR, 1,100 
DATA ARMURE DE CUIR,2,300 
DATA COTTES DE MAILLES,3, 1000 
DATA ARMURE DE PLAQUES,5,4000 
DATA *FIN 


Les créatures rencontrées par les personnages peuvent avoir des ar- 
mures. Si ce sont des créatures intelligentes, elles peuvent avoir le 
même type d’armure que les personnages. Si ce sont des créatures 
non-intelligentes, armure peut faire partie de leur morphologie 
(écailles, fourrure épaisse, cuir épais, etc). 


DATA PEAU EN ECAÏILLES,2,-1 
DATA CUIR EPAIS,2,-1 

DATA FOURRURE EPAISSE,1,-1 
DATA *FIN 


La valeur -1 indique que ces armures sont naturelles et les person- 
nages ne peuvent pas les acheter ou les utiliser. 

Les fonctions PROTECTION ARMURE et PRIX_ARMURE fournissent au 
programme les informations dont il a besoin pour une armure parti- 
culière. 


FUNCTION protection armure(armure) 

RETURN def_armure(armure, 1) 

ENDFUNC 

FUNCTION prix armure(armure) 
RETURN def armure(armure, 2) 

ENDFUNC 


Quelques autres types d'objets 


Voici quelques autres types d’objet que vous pouvez définir: bouclier 
(nom,protection,prix), médicaments (nom, type de maladies soi- 
gnées, puissance, prix), objets précieux (nom, prix), documents 
(nom, texte, prix), boissons (nom, effet, prix), anneaux magiques 
(nom, prix), poisons (nom, puissance du poison, prix), etc. 


Possession des objets 


Pendant le déroulement du jeu, les personnages possèdent des objets. 
Ils peuvent les acheter, les voler, les trouver dans un trésor ou sur le 
cadavre d’un ennemi. 

Le programme doit donc conserver la liste des possessions. Celles-ci 
sont de 2 types: les objets que les personnages portent sur eux (des : 
armes, des vêtements, des armures, etc.) et les objets conservés dans 
un sac (de la nourriture, des objets précieux, des armes, des parche- 
mins, des médicaments, etc.) 
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Gestion des sacs 


Les sacs peuvent être gérés selon plusieurs techniques. Chacune a ses 
avantages ét ses inconvénients. La méthode la plus simple est d’avoir 
une veriable pour chaque type d'objet. Cela n'est valable qu'avec un 
petit nombre d’objets différents. 


Gestion des armes 


Les armes sont mémorisées dans le tableau sac_arme(). Ce tableau 
est commun à tous les personnages. Le premier indice indique le per- 
sonnage concerné. 

Les dimensions du tableau dépendent du nombre de personnages 
dans l’équipe et du nombre maximal d’armes (100 dans l’exemple 
suivant). 


DIM sac_arme(4,100) 


La variable sac arme(n,1l) contient le nombre de POJGNARDS 
possédé par le personnage n. La variable sac_arme(n,2) contient le 
nombre de MASSES détenu par le personnage n, etc. Le numéro des 
armes est celui de création dans les lignes de DATA. Le POIGNARD. est 
la première arme définie, il porte le numéro 1. La MASSE est la secon- 
de arme définie, elle porte donc le numéro 2, etc. Attention: en 
changeant la position d’une arme en DATA, on modifie son numéro. 
Pour augmenter le nombre d'armes possédé par un personnage, il 
suffit d’incrémenter l'élément de tableau correspondant. La procédu- 
re AJOUT_ARME ajoute une arme de type arme aux possessions du 
personnage perso. 


PROCEDURE ajout _arme(perso, arme) 
INC sac arme(perso,arme) 
RETURN 


La fonction TST_ARME permet de connaître le nombre d’armes d’un 
type quelconque possédé par un personnage. 


FUNCTION tst_arme(perso, arme) 
RETURN sac arme(perso, arme) 
ENDFUNC 


La procédure PRENDRE_ARME permet de prendre une arme d’un type 
précis dans le sac d’un personnage. Pour éviter les erreurs, il est 
préférable d'utiliser TST_ARME afin de savoir si il y a au moins une 
arme de ce type dans le sac. 


PROCEDURE prendre arme(perso,arme) 
IF sac arme(perso,arme)<>0 
DEC sac arme(perso,arme) 
ENDIF 
RETURN 


Gestion des armures 


Les armures sont gérées de la même manière que les armes. Le ta- 
bleau sac armure() contient les armures des personnages de 


l'équipe. 


DIM sac_armure(4,100) 


La procédure AJOUT. ARMURE permet d'ajouter une armure à un per- 
sonnage. Elle fonctionne selon le même principe que la procédure 
AJOUT_ARME Les routines TST_ARMURE et PRENDRE ARMURE permet- 
tent de tester le nombre d’armures possédées, et de retirer une armu- 
re à un personnage. 


PROCEDURE ajout armure(perso, armure) 
INC sac armure(perso; armure) 

RETURN 

FUNCTION tst armure(perso,armure) 
RETURN sac armure(perso,armure) 

ENDFUNC 

PROCEDURE prendre armure(perso,armure) 
IF sac armure (perso, armure) <>0 

DEC sac armure(perso, armure) 

ENDIF 

RETURN 


Gestion d’un type d'objet quelconque 


Tous les types d'objets peuvent être stockés de la même manière que 
les armes et les armures: avec un tableau spécifique et quelques rou-* 
tines de manipulation d’objets. 


DIM sac bouclier(4,100) : 
DIM sac nourriture(4,100) 

DIM sac boisson(4,100) 

DIM sac_potion(4,100) 

DIM sac anneaux(4, 100) 

DIM sac _bijoux(4,100) 


Cette méthode est simple à mettre en œuvre, mais elle a le défaut de 
multiplier le nombre de tableaux. La place mémoire perdue peut de- 
venir très importante. 


Equipement des personnages 


L'équipement des personnages de notre petit programme d’exemple 
se limite à une arme et à une armure. Cet équipement est stocké 
dans le tableau equipement _perso(). Lorsqu'une case de ce tableau 
contient 0, le personnage n’a pas l'équipement correspondant. 


DIM equipement perso(4,2) 
! equipement perso(p,1) = Arme perso p 
L equipement perso(p,2) = Armure perso p 


Le joueur doit pouvoir mettre ou enlever de l’équipement à ces per- 
sonnages. Il faut donc avoir des routines de manipulation de 
l'équipement. La procédure METTRE_ARME permet de donner une ar- 
me particulière à un personnage. Si celui-ci a déjà une arme en main, 
elle est stockée dans ses possessions. 


PROCEDURE mettre arme(perso,arme) 
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LOCAL old arme 
Ûl 
old: arme=equipement_perso (perso, 1) 
IF old arm<>0 

Gajout arme(perso,old_arme) 
ENDIF. 
equipement_perso(perso, 1)=arme 

RETURN 


La procédure ENLEVER ARME retire larme présente dans les mains 
d’un personnage et met celle-ci dans ses possessions. 


PROCEDURE enlever arme(perso) 
LOCAL arme 
arme=equipement perso(perso, 1) 
IF arme<>0 
Gajout_arme(perso, arme) 
equipement perso(perso,1)=0 
ENDIF 
RETURN 


La fonction ARME PERSO fournit au programme l’arme utilisée par 
un personnage. Si le personnage n’a aucune arme en main, elle don- 
ne la valeur 0. 


FUNCTION arme perso(perso) 
RETURN equipement perso(perso,1) 
ENDFUNC 


Les armures peuvent être manipulées de la même manière que les 
armes. Les procédures METTRE ARMURE et ENLEVER ARMURE permet- 
tent de revêtir une armure et de la retirer. 


PROCEDURE mettre armure(perso, armure) 
LOCAL old armure 
old armure=equipement perso(perso,2) 
IF old arme<>0 
@ajout armure(perso,old armure) 
ENDIF 
equipement perso(perso,2)=armure 
RETURN 


PROCEDURE enlever armure(perso) 
LOCAL armure 
armure=equi pement perso (perso, 2) 
IF armure<>0 
@ajout_armure(perso, armure) 
equipement. perso(perso,2)=0 
ENDIF 
RETURN 


La fonction ARMURE_ PERSO permet de connaître l'armure portée par 
le personnage. Si celui-ci n’a pas d’armure, elle donne la valeur 0. 


FONCTION armure perso (perso) "2. 
RETURN equipement perso(perso;2) 
ENDFUNC < 


Dans cet exemple, l'équipement est réduit au minimum (une arme et 
une armure). Rien n'empêche d'améliorer le système et permettre 
aux personnages d’avoir des poches, un objet à la ceinture, une amu- 
lette autour du cou, des anneaux aux doigts, etc: Vous pouvez même 
détailler l'habillement (pantalons, vestes, chaussures, etc.). 


Calcul du dommage définitif 


Les combats que livrent les personnages font intervenir les compé- 
tences (compétence de combat), les caractéristiques secondaires (bo- 
nus de dommage et points de vie) et l'équipement (armes et ar- 
mures). Un personnage frappant sur une créature quelconque lui 
cause des dégâts qui sont caleulés en fonction du type d’arme, de la 
force du personnage et de la protection de la créature. La routine 
DOMMAGE_CREATURE calcule les dégâts reçus par une créature 
lorsqu'elle reçoit un coup du personnage perso: 


FUNCTION bonus _perso(penso) 
RETURN def _perso(perso;8) 

ENDFUNC 

FUNCTION dommage creature(perso,creature) 
LOCAL arme,dommage 
arme=@arme_perso(perso) 
dommage=@dommage_arme (arme) 
ADD dommage, @bonus_ perso (perso) 
SUB dommage,@protection creature(creature) 
IF domnage<0 

dommage=0 

ENDIF 
RETURN dommage 

ENDFUNC 


La routine PROTECTION CREATURE n’est pas définie dans cet article. 
Elle fait partie du module de gestion des créatures qui n'est pas 
détaillé ici, faute de place. Les créatures se gèrent comme les person- 
nages, mais d'une manière moins détaillée. 


Pour finir 


Cet article vous a présenté quelques notions indispensables pour 
comprendre le fonctionnement interne des jeux de rôle. C’est un ar- 
ticle incomplet car le sujet est vaste. 

Nous n'avons pas parlé de la gestion des créatures, des déplacements 
dans un univers virtuel, des dialogues avec les créatures, des pro- 
blèmes de représentation graphique, sujets traités dans les autres 
articles de la série, ‘ 


POUR TOUTES VOS QUESTIONS, TAPEZ 
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JEU DE ROLE EN GFA BASIC 


PROGRAMMATION D JUN 
JEU DE ROLE (IT) 
Editer vos cartes graphiques 
La programmation d’un jeu de rôle facon Ultima passe par la 


réalisation d’un éditeur capable de définir la carte d'un monde 
médiéval fantastique. 


Notions de base #7 


Dans les jeux de rôle de type Ultima ou Fantaisy (liste non limitati- 
ve), le joueur gére les actions d’une équipe de personnages. Celle-ci 
se déplace sur une grande carte représentant l’ensemble du monde de 
jeu. Seule une partie de la carte est affichée à l’écran. C’est une sorte 
de fenêtre de visualisation qui se déplace sur la carte totale. Lorsque 
les personnages se déplacent, la fenêtre montre la nouvelle position. 


Dessin de la carte 


L'univers de jeu doit être vaste pour que le joueur ait le plaisir de 
l’explorer. Cela nous empêche de stocker le dessin de la carte sous la 
forme d’une image, pour des raisons de place mémoire. Une image 
de 320x200 pixels en basse résolution occupe 32 Ko. Une image de 
1600x800 pixels, équivalent à un espace de 5x4 images écrans, occupe 
une place mémoire de 640 Ko. C'est beaucoup trop pour un 520 ST 
et même pour un 1040 ST, en tenant compte de la taille prise par le 
programme et les autres données graphiques. 


Dessin avec éléments graphiques de base 


* Au lieu de stocker l’image de la carte en mémoire, on peut la redessi- 

ner avec des éléments de base. Une forêt peut être dessinée avec 6 ou 
7 éléments, une riviére ou un plan d’eau n’ont pas non plus besoin 
de beaucoup d'éléments différents. À la rigueur, uné forêt peut être 
dessiné avec une seule petite image représentant un arbre, et la mon- 
tagne avec un seul élément représentant la silhouette d’une cime. 
C'est le procédé utilisé par bon nombre de logiciels de jeu du com- 
mérce. Pour des raisons techniques qui tiennent à l’organisation des 
mémoires vidéos, les éléments ont le plus souvent une taille de 
16x16 pixels ou 32x32 pixels. 
Uné carte est alors mémorisée sous la forme d’une liste d’éléments 
graphiques. On peut stocker cette liste dans un tableau numérique à 
deux dimensions, dont le type dépend du nombre d'éléments pos- 
sibles. Avec moins de 256 éléments, ce qui est déjà énorme, on peut 
utiliser un tableau de type BYTE (symbole |), chaque élément du ta- 
bleau n’occupant qu’un octet en mémoire. 





Avec des éléments de 16x16, une carte de 1600x800 pixels peut être 
stockée dans un tableau de 100x50 éléments, occupant une place 
mémoire de 5000 octets. Sa déclaration se fait de la manière suivante: 


OPTION BASE 1 
DIM carte|(100,50) 


L'instruction OPTION BASE 1 force le basic à numéroter ces tableaux 
à partir de l'indice 1 et non O. Pour calculer le gain de mémoire ent- 
re les deux méthodes, il faut prendre en compte la place mémoire 
prise par les éléments graphiques. î 

Un élément graphique de 16x16 pixels stocké dans une variable al- 
phanumérique grâce à l'instruction GET occupe une place de 134 oc- 
tets, ce calcul ayant été fait avec l'instruction LEN qui détermine la 
taille d’une variable alphanumérique. 


GET 1,1,16,16,var$ 
PRINT LEN(var$) 


L'expérience montre que l’on peut dessiner des cartes complétes avec 
bien moins de 200 éléments différents. C’est donc une valeur limite 
acceptable pour faire quelques calculs. Vous utiliserez certainement 
moins de 200 éléments pour créer vos propres cartes. Pour la petite 
histoire, les premiers jeux Ultima ont été dessinés avec seulement 
quelques dizaines d'éléments. Le stockage de 200 éléments graphi- 
ques prend 26800 octets. 


DIM element$ (200) 


En additionnant la place prise par le codage de la carte et par 200 éle- 
ments graphique, on arrive à un total de 31800 octets (5000+ 
26800). Dans notre cas particulier, le gain de place apporté par le co- 
dage de la carte est de 20, mais s’améliore considérablement si la car- 
te est plus grande que 100x50 éléments ou si le nombre d'objets gra- 
phique est plus petit que 200. 

Cette technique offre un gros avantage pour le développement d’un 
logiciel: la carte est facile à dessiner une fois que les éléments de base 
sont créés. 
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Même un non-graphiste peut réaliser une jolie carte à partir de beaux 
éléments de base. 


Dessin de la carte Ultima 


La portion de carte affichée par les jeux Ultima a une dimension de 
176x176 pixels, et est constitué de 11x11 élements de 16x16 pixels. 
La position de l’équipe de personnages est visualisée par une silhou- 
ette en noir affichée au milieu de l’écran. 

Lors des déplacements, l’image de la carte est redessinée de manière à 
ce que l’équipe soit toujours au centre de l’image visible. 


Programmation d'un système 
de déplacement style Ultima 


Pour réaliser un systéme de déplacement similaire à celui d’Ultima 
en GFA Basic, il faut résoudre un certain nombre de problémes tech- 
niques, Nous avons déjà vu que le codage de la carte peut être stocké 
dans un tableau numérique et les éléments graphiques de base dans 
un tableau alphanumérique, mais il reste bien des questions à étu- 
dier. Comment est-ce que les éléments graphiques sont stockés dans 
le tableau alphanumérique? Comment afficher rapidement la carte 
aussi bien sur un STF que sur un STE? Comment stocker les diffé- 
rentes données sur disque? Comment gérer les déplacements de 
l’équipe sur la carte? 

Toutes ces questions sont trop difficiles à gérer dans un seul article, 
c'est pourquoi ce texte est séparé en deux parties: la première est con- 
sacrée à la création d’une carte et la seconde traite de son utilisation 
pour gérer les déplacements de l’équipe. 


Définition des éléments graphiques 


On suppose que les éléments graphiques de base ont été dessinés par 
un graphiste avec un logiciel de dessin type Degas Elite ou équiva- 
lent. Nos précieux éléments sont donc stockés sur disque dans une 
image au format Degas. Le programme GENELEM.GFA lit l’image De- 
gas ELEMENTS. PI1 et stocke les éléments graphiques dans un fichier 
binaire ELEMENTS. BIN réutilisable par un autre programme. 

La structure du fichier binaire est la suivante: 32 octets contenant la 
palette de couleur des éléments graphiques, un octet unique conte- 
nant le nombre d’élements du fichier et le codage des éléments, cha- 
cun occupant 134 octets. La position (x, y) des éléments sur l'image 
est définie dans une série de DATA à la fin du programme, la fin des 
données étant signalé par la valeur -1. 


LOKKKKKKKEKKRERARRRÉERERERERERERRERE 


! *X  GENERATEUR FICHIER BINAIRE * 
MES ELEMENTS GRAPHIQUES Lt 
DL OXKKKKKEKKERRRRRRRERRERRERERARAREE 
RESERVE 100000 

DIM element$ (200) 

nb_elements#=0 

palette$=SPACES (32) 


@load_degas("ELEMENTS.PI1") 
@saisie elements 
@sauve elements ("ELEMENTS .BIN") 


END 


D OKXKAKKKKKEKKEKRKKEKRKREAR 


! * CHARGEMENT IMAGE * 
ASE DEGAS ELITE À 


1 OKKXKKKRARAARRARKARRARERX 


1 OKKKKKKKRERELEAAXKEREREERAERERRRAREREX 


! * La palette est stockée dans la * 
! * variable globale palette$ f 
LOXKKKKAREKREAKEKREEEEERERERERERKKARARE 
PROCEDURE load .degas(nom$) - 

palette$=SPACES (32) 

OPEN “I",#1,nom$ 

SEEK #1,2 } 

BGET #1,VARPTR(palette$),32 

VOID XBIOS(6,L:VARPTR(palette$)) 

BGET #1,XBI0OS(2),32000 

CLOSE #1 
RETURN 


D OXKRKKKKAERÉAREERERRAAREREERKRE KEANE 


! % GENERATION FICHIER BINAIRE * 
! # ELEMENTS GRAPHIQUES d 
LOKAKREERERERARERERRRRAREREEREAREAAER 
PROCEDURE sauve elements (fichier$) 

LOCAL i% 

OPEN "o",#l,fichier$ 

BPUT #1,VARPTR(palette$), 32 

OUT #1,nb elements% 

FOR i%=1 TO nb elements* 

BPUT #1,VARPTR(element$(i%)) ,134 

NEXT i% 

CLOSE #1 
RETURN 


LOXKKKKKKKKKKRARRKRERERERARE 


St CHARGEMENT DES  * 
! * ELEMENTS GRAPHIQUES * 
1 OKXKKKAKKKARAKERERKKRERRARERE 
PROCEDURE saisie elements 

LOCAL n% 

LOCAL px%,py# 

LOCAL px2%,py2% 


n#%=0 
RESTORE def elements 
DO 
READ px% 
EXIT IF px#=-1 
READ py# . 
INC n% 


px2%=px%t15 

py2%=py%+15 

GET px%,py%,px2%, py2%,element$ (n%) 
LOOP 
nb_elements#%=n% 
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RETURN 


l KHKKAKEAKXÉEKÉRRRAREARERANRAAEX 


AU POSITION DES ji 
‘ * ELEMENTS GRAPHIQUES * 
L'OKKKKKKRKKRARXRRARRARRKAEXKEE 
def_elements: 

DATA 1,1 

DATA 18,1 

DATA 35,1 

DATA 52,1 

DATA 69,1 

DATA 86,1 

DATA 1,18 

DATA 18,18 

DATA 35,18 

DATA 52,18 

DATA 69,18 


DATA -1 


Programme EDITCART 


Le programme EDITCART est un éditeur de carte virtuelle écrit en- 
tiérement en GFA Basic. Il sauve les cartes éditées dans des fichiers bi- 
naires, pouvant être relus et exploités par d’autres programmes. 

Ses fontions sont: lecture d’une carte à partir du disque, sauvegarde 
de la carte courante sur disque, déplacement sur la carte, modifica- 
tion d’un élément quelconque de la carte, sélection d’un élément 
graphique, affichage d’une boîte d'informations et option pour quit- 
ter le programme. Le tout est entiérement géré à la souris. 

Attention: l'éditeur à besoin d’un fichier d'éléments graphiques pour 
fonctionner. Exécutez le programme GENELEM avant d'utiliser EDIT- 
CART. Le nom du fichier d’élements graphiques est ELEMENTS. BIN 
par défaut, mais vous pourrez le modifier dans le code source 
d'EDITCART, ou ajouter une fonction permettant de charger n’impor- 
te quel fichier d'éléments graphiques. 


La simplicité n'est pas de ce monde 


Initialement, cet éditeur a été conçu pour être simple à utiliser et à 
comprendre. Hélas, il s’est avéré impossible d’écrire des routines d’af- 
fichages simples et performantes aussi bien sur STE que STF (dom- 
mage que tous les ST ne soient pas dotés de blitter). Les routines 
d'affichage de EDITCART utilisent donc des techniques de program- 
mation un peu complexes à comprendre pour un programmeur 
débutant. 


Un système d'affichage simple 


La première méthode qui vient à l'esprit est de réafficher entiére- 
ment l'écran après chaque déplacement. Dans l’exemple qui suit, le 
codage de la carte est stocké dans le tableau CARTE! () et les éléments 
graphiques de base dans le tableau ELEMENT$(). La procédure 
@aff_carte dessine la carte sur l’écran. 

La position du morceau de carte visible par rapport à la carte virtuel- 
le est contenu dans les variables ligne carte et colonne carte. 


En mettant ligne carte et colonne carte à 1, le côté haut gau- 
che de la carte est affiché sur l’écran. 

Pour déplacer la carte d’une position vers la droite, il faut incré- 
menter la variable colonne ligne de 1 et appeler de nouveau 
Qaff carte 

Pour déplacer la carte d’une position vers le bas, il faut incrémenter 
ligne carte et exécuter aff carte. 

Remarque: la position (1, 1) correspond au premier indice du tableau 
contenant la carte, grâce à l’instruction OPTION BASE 1 Sans cel- 
le-ci, le premier indice du tableau a la position (0,0). 

Le morceau de carte visible est affiché à l’écran à la position définie 
par les variables xcarte% et ycarte%. Etant donné la structure inter- 
ne de la mémoire vidéo et la manière dont fonctionnent les instruc- 
tions graphiques du GEA Basic, il est préférable d’utiliser une posi- 
tion d'affichage en x multiple de 16, afin d'accélérer la vitesse 
d'exécution. 


OPTION BASE 1 
xcarte#=16 
ycarte#=5 

ligne carte%=30 
colonne carte%=67 
Qaff carte 

END 


PROCEDURE aff carte à 
LOCAL 1%,c% 
LOCAL Tigne% 
LOCAL colonne* 
LOCAL num 
LOCAL posx% 
LOCAL posy* 


posy#=ycartes 
ligne*=ligne cartes 
FOR 1#=1 TO 11 
posx#=xcarte 
colonne#=colonne cartes 
FOR c%=1 TO 11 
num%=carte| (colonne, ligne) 
PUT posx%, posy#,element$ (num) 
INC colonne 
ADD posx%, 16 
NEXT c% 
INC ligne* 
ADD posy#, 16 
NEXT 1% 
RETURN 


Pour gérer les déplacements, il suffit d’avoir une série de procédures 
modifiant les variables de position en fonction de la direction de 
déplacement. Pour des raisons de sécurité, ces procédures doivent 
contrôler que le déplacement ne se fasse pas en dehors des limites de 
la carte. 
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PROCEDURE aller haut 
IF ligne carte#<>1 
DEC ligne carte* 
Gaff carte 
ENDIF 
RETURN 


PROCEDURE aller bas 
IF ligne carte#<>ligne max 
INC ligne carte 
@aff_carte 
ENDIF 
RETURN 


PROCEDURE aller gauche 
IF colonne carte%<>1l 
DEC colonne carte 
Qaff carte 
ENDIF 
RETURN 


PROCEDURE aller droite 
IF colonne carte<> 
INC colonne cartex 
Gaff_ carte 
ENDIF 
RETURN 


Ce système est parfait sur le papier, mais une fois mis en oeuvre, il se 
révéle trop lent pour une utilisation pratique, cas de figure fréquent 
en informatique. La solution passe par une amélioration du principe 


de base. 


Un redessin partiel de la carte 


On peut gagner du temps en ne redessinant qu’une partie de la carte. 
Lors d’un déplacement vers la droite, la colonne 1 disparaît de 
l'écran et les colonnes 2 à 11 sont décalées d’une position vers la 
gauche, le programme ne dessine vraiment que la nouvelle colon- 
ne 11. De la même manière, lors d’un déplacement vers la droite, 
seule la colonne 1 est nouvelle. Puisqu’une partie de la carte est juste 
décalée, au lieu de le redessiner, on peut la déplacer en une seule 
opération graphique. L'une des solutions possible est de lire la por- 
tion de carte avec l’instruction GET et de l'afficher à sa nouvelle posi- 
tion avec PUT. 

Cette technique fonctionne, mais présente un inconvénient d’ordre 
esthétique. L'oeil humain est un outil très perfectionné qui est ca- 
pable d’analyser et de décomposer la structure d’un mouvement ra- 
pide. C’est souvent un avantage, mais dans notre cas particulier, c’est 
un inconvénient: si la routine d’affichage travaille en deux étapes, ce- 
la produit un effet graphique nuisible visible. Pour éviter cela, il faut 
que l’affichage s'effectue en une seule fois et le plus rapidement pos- 
sible, 

La seule manière d’obtenir un affichage rapide est de réaliser les 
opérations graphiques en mémoire et de les recopier rapidement sur 
l'écran en une seule opération. Afin d’obtenir un résultat graphique 
encore meilleur, le programme EDITCART utilise une variante de cet- 


te technique: il dessine la carte dans un écran virtuel, puis change 
l'adresse de la mémoire écran par l'adresse de cet écran virtuel. Ainsi, 
on évite de recopier l’image sur l'écran. 

La fonction XBIOS(5) permet de changer l'adresse de la mémoire 
écran. Sur un STE cette adresse peut être quelconque, alors que sur 
un STE elle doit obligatoirement être un multiple de 256. L'adresse 
initiale de l’écran est multiple de 256. Il faut créer une zone de 32000 
octets pour l'écran virtuel. L'instruction MALLOC permet d’allouer 
une zone mémoire de n octets. Cette zone mémoire commence obli- 
gatoirement à une adresse paire. Pour obtenir une adresse multiple 
de 256, il faut déclarer avec MALLOC une zone de 32255 octets et 
masquer les deux dérniers bits de l'adresse. Le résultat est une adresse 
multiple de 256 qui porte sur une zone mémoire de 32000 octets 
contenus dans la zone mémoire de 32255 octets déclarée par le pro- 
gramme. C’est un peu compliqué, mais cela marche bien. 


adr tampon%=MALLOC(32255) 
adr2%=(adr tampon#+255) AND &HFFFFFFO0 


Les variables adr1% et adr2% contiennent l'adresse des deux écrans. 
La variable adr1% contient l'adresse initiale de la mémoire écran et 
adr2% contient l'adresse de l’écran virtuel de 32000 octets. L'afficha- 
ge se fait en bascule. Lorsque l'adresse de la mémoire écran est posi- 
tionnée sur adrl%, l’image de la nouvelle carte est dessinée dans 
adr?%. Lorsque l'adresse de la mémoire écran est positionnée sur 
adr1%, l’image de la nouvelle carte est dessinée dans adr1%. 

Lorsque le programme a terminé de dessiner une image en mémoire, 
il change l'adresse de la mémoire écran grâce à l'instruction 
XBIOS(5). Attention: la fonction XB10S(5) peut être appelée à tous 
moment par le programme, mais le gestionnaire d'écran ne change 
l'adresse de la mémoire écran que lorsque l’image courante a ét éen- 
tiérement dessinée, Si vous utilisez trop rapidement l'instruction 
XB10S(5), seul le dernier changement de mémoire d'écran sera pris 
en compte. Pour éviter ce probléme, aprés avoir utilisé XB1OS (5), il 
faut attendre que le gestionnaire d'écran ait affiché entièrement 
l’image écran. Ce test est réalisé avec l'instruction VSYNC. Celle-ci 
bloque l'exécution du programme tant que le gestionnaire d'écran af- 
fiche l’image courante (il y a 50 images affichés par seconde). 


VOID XBI0S(5) 
VSYNC 


Format de sauvegarde des cartes 


Les cartes générées par EDITCART ont une taille de 30 lignes de 60 co- 
lonnes. Pour changer la taille, il faut modifier les variables nb_co- 
lonnes et nb_ lignes sans dépasser les limites du tableau car- 
te(200,75). 

Les cartes d'EDITCART ont le format suivant: 19 octets contenant la 
chaîne CARTE JdR ATARI MAG, un octet contenant le nombre de 
colonnes, un octet contenant le nombre de lignes et le codage de la 
carte (la taille de ce codage est égal à nb_colonnesxnb lignes oc- 
tets). La chaîne est un en-tête d’identification. Si vous tentez de lire 
un fichier n'ayant pas d’en-tête, le programme affiche un message 
d’erreur, Le nom d’une carte doit impérativement avoir une exten- 
sion .CAR, ne l’oubliez pas au moment de taper de la carte à sauver 
(c’est l’unique moment où l'éditeur utilise le clavier). 
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LOKKKKKKKKKKKKKKKKREKRKKARKERRAAREKXE 


a EDITEUR DE CARTE S 
dir POUR JEU DE ROLE # 
SEE STYLE ULTIMA # 


1 'KKAKKAKXKKKKERKRKKREKRERXAARRRAREARE 


! * (C) 1991.ATARI MAGAZINE a 
! x (C) 1991 PATRICK LECLERCQ * 


1 'KKKKAKAKKKKEKRKRERRERAKKRARRKERAREAKE 


RESERVE 100000 


OPTION BASE 1 
DIM element$ (200) 


adr tampon%=MALLOC(32255) 
adr2%=(adr_tampon%+255) AND &HFFFFFFOO 
adr1%=XBI0S (2) 

nb_colonnes#=60 

nb_lignes#=30 

DIM carte] (200,75) 


@main 

VOID XBIOS(5,L:adrl%,L:adr1%,-1) 
CLS 

VOID MFREE(adr tampon“) 

END 


PROCEDURE set_ecr log(adr ecrans) 
VOID XBI0S(5,L:adr ecran%,L:-1,-1) 

RETURN 

1 

PROCEDURE set_ecr phys(adr ecran%) 
VOID XBIOS(5,L:-1,L:adr ecran, -1) 

RETURN 


l OKXKKKKKKKKEKKKRRKAKRRARARARARERE 


! *  ATTENTE ARRET CLIC SOURIS * 
l OKKAKKAKKKKARAARERARARAAKREAREREARE 
PROCEDURE attOclic 

DO 

EXIT IF MOUSEK=0 

LOOP 
RETURN 
PROCEDURE souris fleche 

DEFMOUSE -0 
RETURN 
1 


PROCEDURE souris abeille 
DEFMOUSE 2 
RETURN 


L OKXKXKKKAKAKAAKKRAKALKAARAARAAREREE 


" * TEST CLIC SUR ZONE ECRAN * 


LOKKKKKAKAAKKAKRAAERARKEKÉARERRAARE 


FUNCTION tstzone(x%,y#,px%,py%, tx%, ty%) 
LOCAL result 


result#=1 

IF X#<pX% 
result#=0 

ENDIF 

IF x>px#rtxs-1l 
result#=0 

ENDIF 

IF y<py# 
result#=0 

ENDIF 

IF yé>py#+ty#-1 
result#=0 

ENDIF 

RETURN result# 

ENDFUNC 


LL OKAKXKKAKAKAAAAKKAREARERERE 
‘ *  EFFACEMENT ECRAN * 
LL OKXXKKKKKAKAAKRAKAKRARAKREREX 
PROCEDURE c1s_ecran(c#) 
DEFFILL c% 
PBOX 0,0,319,199 
RETURN 


LOKKKKKEKKKKKKKRKKEKRARKRARERRAAREEE 

‘x AFFICHAGE CADRE GRAPHIQUE * 

LOKKKKARKRKRAKRERERERARKARRAERERRARRE 

PROCEDURE cadre(px%, py%, tx%, ty%, f%,b%) 
LOCAL px2%,py2% 


px2%=px%rtxs-1l 
py2%=py#tty#-1 

DEFFILL f% 

PBOX px%,py#,px2%,py2% 


COLOR b% 
BOX px%,py%,px2%,py2% 
RETURN 


LOKKKKRKKRKKRRERAARAKRARRRERXEX 


! * AFFICHAGE MESSAGE  * 
! * DANS BOITE DE CLIC * 
L'OKAAKAKKRKARRAARKAAKEAREXERKXXE 
PROCEDURE aff_boite(px%,py%,tx%,ty%,f#,b%,m$) 
LOCAL px2%,py2% 
LOCAL xaff#,yaff 
1 
px2%=px%+tx%-1l 
py2#%=py#+ty#-1 
1 


xaff%=px%+(tx%-LEN(m$)*8)/2 
yaff=py#+6+(ty%-7)/2 
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DEFFILL f% @cadre(223,164,54,22,2,0) 

PBOX px%,py#%,px2%,py2% @aff_boite(225,166,14,18,3,0,CHR$(4)) 
COLOR b% @cadre(241,166,18,18,2,0) 

BOX px%,py%,px2%,py2% @aff_boite(261,166,14,18,3,0,CHR$(3)) 
; @aff element courant 


TEXT xaff%,yaffs,m$ RETURN 
RETURN ‘ 
D ORAKKAKKKKKRRRRAREREREREERERRKRRRRRRERERREEÉ L 'XKAKKAKKKAKAKKKKERRRKRKEXX 
! * CHARGEMENT DU FICHIER BINAIRE * "x AFFICHAGE DE LA * k 


 * CONTENANT LES ELEMENTS GRAPHIQUES 


LOXKKKKRREKRRRERRREREREARERRRAERRERERERRRRAËR 


PROCEDURE charge _elements(fichier$) 


LOCAL n% 
LOCAL palette$ 


palette$=SPACES$ (32) 
OPEN "I",#1,fichier$ 
BGET #1,VARPTR(palette$) ,32 
VOID XBI0S(6;L:VARPTR(palette$)) 
nb _elements=INP(#1) 
FOR n%=1 TO nb elements* 
element$(n#%)=SPACES (134) 
BGET #1,VARPTR(element$(n%)) ,134 
NEXT n% 
CLOSE #1 


RETURN 


KKKKKKRAREREREKRERERERERÉRRRRRAERÉEE 


*  INITIALISATION DE LA CARTE * 


KKKAKRAREREREEKRRRKRAARÉRAREREEEEÉ 


PROCEDURE init carte 


ARRAYFILL carte|(),1 


RETURN 


KKKKKKKKKEKKERKKKKRERREKKRERERE 


* AFFICHAGE IMAGE EDITEUR * 


KKKAKAKRRKKEEKEEEERERERRERRERE 


PROCEDURE aff_ecran 


@cls ecran(1) 
@cadre(xcarte%-1,ycarte#-1,178,178,1,0) 
DEFTEXT 0 

@cadre(226,11,48,36,2,0) 
@aff_boite(229,14,20,14,3,0,CHR$(1)) 
@aff_boite(229,30,20,14,3,0,CHR$(4)) 
@aff_boite(251,14,20,14,3,0,CHR$(2)) 
@aff_boite(251,30,20,14,3,0,CHR$ (3)) 


MR MICARTENN IS IBLEMX 
L 'KHKKAKKAKKKKKKKKKREKEHE 
PROCEDURE aff carte 

LOCAL 1%,c% 

LOCAL Tigne% 

LOCAL colonne* 

LOCAL num 

LOCAL posx* 

LOCAL posy*# 


posy*=ycartes 
ligne%=ligne cartes 
FOR 1%=1 TO 11 
posx#=xcartes 
colonne#=colonne carte 
FOR c%=1 TO 11 
num%=carte| (colonne%, ligne“) 
PUT posx#,posy#,element$ (num) 
INC colonne 
ADD posx%,16 
NEXT c% : 
INC ligne“ 
ADD posy#, 16 
NEXT 1% 
RETURN 


1 OKXKKKKAKKAAKAREREREAKREX 


"x AFFICHAGE DE  * 
"x ELEMENT COURANT * 
D OKXKKKKKKKKKRKKKRRAEARRE 
PROCEDURE aff element courant 
LOCAL old ecr% 
old ecr%=XB10S(3) 
@set_ecr log(adr1#) 
PUT 242,167,element$(element courant*) 
@set_ecr log(adr2%) : 
PUT 242,167,element$(element_courant#) 
set _ecr log(old ecr%) 
RETURN 


L'OKRKKEKEEEKRKERRERRERÉRKKERERAREREREEE 


@aff_boite(195,56,110,13,2,0,"INFORMATIONS") 
@aff_boite(195,83,110,13,2,0,"QUITTER PRG") 
@aff boite(195,111,110,13,2,0,"CHARGER CARTE") 
@aff boite(195,138,110,13,2,0," SAUVER CARTE") 
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! GESTION PERMUTATION DES ECRANS  * 


LV OKKKEKEEEEKERRERERRRRRRKARERERÉERERARE 


PROCEDURE preparation ecr_ travail 





IF etat#=1 Ÿ 
ecr visible#=adrl* 
ecr travail%=adr2% 
ELSE 
ecr visible*=adr2% 
ecr travail#=adr1# 
ENDIF 
etat+=-etat* 
@set_ecr log(ecr_travail#) 
RETURN 


1 
LU RROR RO ROR ROURUR OR AR ARR RAR RARE 
" * VISUALISATION DE LA CARTE * 
l'OKKKKKRKKKAKKAKRRARARERARAKREREREARE 
PROCEDURE visualisation ecr travail 
@set ecr phys(ecr travail#) 
VSYNC 
RETURN 


1 
' 
LOKKAKKKKEXEREKKKERARRRRRRKRAREAAEXE 
! *  DEPLACEMENT VERS LE HAUT * 
L'XKKKKKKERKRRRERRRARERRAKRAKRERREE 
PROCEDURE aller haut 
LOCAL ecr1%,x1%,y1% 
LOCAL ecr2%,x2%,y2% 
LOCAL px%,py# 
LOCAL c%,colonne* 
LOCAL n% 
IF ligne carte#<>l 
DEC ligne cartes 
HIDEM 
@preparation ecr travail 
ecrl*=ecr visibles 
x1%=xcarte 
Yl%=ycarte 
ecr?2%=ecr travail 
x2%=xcartes 
y2%=ycarte%t16 
RC_COPY ecr1%,x1%,y1#,176,160 TO ecr2%,x2%,y2% 
colonne#=colonne carte 
px*=xcartes 
py#=ycartes 
FOR c#=1 TO 11 
n%=carte| (colonnes, ligne carte“) 
PUT px%,py%,element$ (n%) 
INC colonne“ 
ADD px#,16 
NEXT c% 
@visualisation ecr travail 
SHOWM 
ENDIF 
RETURN 


L'OKXKKKXKEAKRRERRARARAREREREREAEE 


! *  DEPLACEMENT VERS LE BAS * 


VO KKXKKKKKEKKAKERERRKRKRKRRERERAKRÉ 


PROCEDURE aller bas 
LOCAL ecr1%,x1%,y1% 
LOCAL ecr2%,x2%,y2% 
LOCAL px%,py# 
LOCAL c%,colonne* 
LOCAL n% 
IF ligne carte%<>nb lignes#-10 
INC ligne carte% 
HIDEM 
@preparation_ ecr travail 
ecrl#=ecr visible“ 
x1#%=xcarte* 
yl%=ycarte#+16 
ecr2%=ecr travail* 
x2%=xcarte* 
y2%=ycarte 
RC_COPY ecr1%,x1%,y1#,176,160 TO ecr2%,x2%,y2% 
colonne#=colonne carte* 
px=xcartes 
py#=ycarte#+160 
FOR c%=1 TO 11 
n%=carte|(colonne%, ligne carte%+10) 
PUT px%,py#,element$ (n%) 
INC colonne” 
ADD px%,16 
NEXT c% 
@visualisation ecr travail _ 
SHOWM 
ENDIF 
RETURN 


4 


LL OKRKKKEAKEKKERERKERERARÉEREERRAREX 


! * DEPLACEMENT VERS LA GAUCHE * 
LOKAKKAKKRERKARKRÉRERARERERRERRRRRERE 
PROCEDURE aller gauche 
LOCAL ecr1%,x1%,y1# 
LOCAL ecr2%,x2%,y2% 
LOCAL px%,py# 
LOCAL 1%,1igne% 
LOCAL n% 
IF colonne carte#<>1 
DEC colonne carte 
HIDEM 
@preparation ecr travail 
ecrl#=ecr visible# 
xl#=xcartes 
y1%=ycarte* 
ecr?%=ecr travail% 
x2%=xcarte#+16 
y2#=ycartes 
RC COPY ecrl%,x1%,y1#%,160,176 TO ecr2%,x2%,y2% 
ligne#=ligne cartes 
px#=xcarte* 
py#=ycartes 
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FOR 1#=1 10 11 
n#=carte| (colonne carte#, ligne) 
PUT px#,py#,element$ (n%) 
INC ligne* 
ADD py%,16 

NEXT 1% 

@visualisation ecr travail 

SHOWM 

ENDIF 


RETURN 


l OKKKKAKKRKAKRAKERERKERERERARRLRRAX 


* DEPLACEMENT VERS LA DROITE * 


L'OXKKARAKRKREKRKRKERERRRRRRARERERARE 


PROCEDURE aller droite 


LOCAL ecr1%,x1%,y1% 
LOCAL ecr2%,x2%,y2% 
LOCAL px%,py% 
LOCAL 1%,1igne* 
LOCAL n% 
IF colonne carte#<>nb colonnes-10 
INC colonne cartes 
HIDEM 
@preparation ecr travail 
ecrl%=ecr visibles 
xl1#%=xcarte#+16 
yl%=ycartes 
ecr?2%=ecr travail# 
x2#%=xcarte 
y2#=ycarte 
RC COPY ecr1%,x1%,y1#,160,176 TO ecr?2%,x2%,Y2% 
ligne#=ligne cartes 
px#=xcarte#+160 
py#=ycartes 
FOR 1#=1 TO 11 
n#=carte| (colonne carte#+10,ligne#) 
PUT px%,py%,element$ (n%) 
INC ligne* 
ADD py#,16 
NEXT 1% 
@visualisation ecr travail 
SHOWM 
ENDIF 


RETURN 


KKKKKAKKKKERERRERERERRRRRRARAHARE 


* SAUVEGARDE CARTE SUR DISQUE * 
* FONCTION SYSTEME à 


KKKKRKEREREERREREREREREREAREARERAK 


PROCEDURE exec sauver carte(nom$) 


LOCAL entete$ 

LOCAL 1%,c% 

@souris abeille 

OPEN "O",#1,nom$ 
entete$="CARTE JdR ATARI MAG" 


BPUT #1,VARPIR(entete$),19 

OUT #1,nb colonnes 

OUT #1,nb lignes 

FOR c#=1 TO nb colonnes 
FOR 1%=1 TO nb lignes 

OUT #1,cartel| (c%,1%) 

NEXT 1% 

NEXT c% 

CLOSE #1 

@souris fleche 

RETURN 


LOKRKKKKKERERRAKERERKEAKERARERAERÉRRAREAR 


! * SAUVEGARDE CARTE SUR DISQUE * 
! * INTERFACE UTILISATEUR 4 
L OKKAKKAKKKARARERKERKERERLERARRERAEX 
PROCEDURE sauver carte 
LOCAL nom$,path$ 
LOCAL b% 
LOCAL fond$ 
HIDEM 
SGET fond$ 
SHOWM 
path$=DIR$(0)+"\*.CAR" 
FILESELECT path$," ",nom$ 
IF nom$<>"" 
IF EXIST(nom$) 
m$="NOM DE FICHIER EXISTANT. " 
m$=m$+"| CONTINUER SAUVEGARDE ? |" 
ALERT 0,m$,1, "OUI NON" ,b# 
IF b%=1 
@exec sauver carte(nom$) 
ENDIF 
ELSE 
@exec sauver carte(nom$) 
ENDIF 
ENDIF 
HIDEM 
SPUT fond$ 
SHOWM 
RETURN 


! RE TA ee 
* #  CHARGER CARTE A PARTIR DU DISQUE * 
LV OXKKKKKEKERKERKRAERERAKEARRRERAARERA ARR 
PROCEDURE charger carte 

LOCAL nom$,path$ 

LOCAL entetes 

LOCAL 1%,c% 

LOCAL b% 

LOCAL m$ 

LOCAL fond$ 

SGET. fond$ 

path$=DIR$(0)+"\*.CAR" 
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FILESELECT path$," ",nom$ 
SPUT fond$ 
IF nom$<>"" 
@souris abeille + 
OPEN "I",#1,nom$ 
entete$=SPACES(19) 
BGET #1,VARPTR(entete$),19 
IF entete$<>"CARTE JdR ATARI MAG" 
CLOSE #1 
@souris fleche 
m$="CE FICHIER NE CONTIENT|PAS DE CARTE" 
ALERT O,m$,1," OK ",b#% 
ELSE 
nb_colonnes#=INP(#1) 
nb _lignes%=INP(#1) 
FOR c#=1 TO nb colonnes 
FOR 1%=1 TO nb lignes% 
carte|(c%,1%)=INP(#1) 
NEXT 1% 
NEXT c% 
CLOSE #1 
ligne carte#=1 
colonne carte#=1 
Qaff carte 
@souris_ fleche 
ENDIF 
ENDIF 
RETURN 


LOKXAKAKAKKARKKKKAKRERKRXKKERRKKKRERERAREREEX 
! x INCREMENTATION ELEMENT COURANT * 
L'KAKAKAKERKKRKRAREEERERRARERRRRRAERRAREAE 
PROCEDURE inc element 
IF element courant#<>nb elements* 
INC element _courant* 
@aff element courant 
@attOclic 
ENDIF 
RETURN 


L'OKKKKAKAARARKKRRKRKERRAKERKRERERERRERER 
! *  DECREMENTATION ELEMENT COURANT * 
LOKKKKKKENRÉRERERARERRERRARERARRAREREEEX 
PROCEDURE dec element 
IF element courant#<>1 
DEC element courant* 
Gaff_ element courant 
@attOclic 
ENDIF 
RETURN 


D OKXKKKKKKKKKKKREKAXEKEKRÉERRERREREARERKRERRERE 
! * CLIC SUR UN ELEMENT DE LA CARTE * 
D OKXAKKKKKKKRKARRARERAAREEREREZXKRRAREREERÉSE 
PROCEDURE clic carte(xm#,ym%) 

LOCAL x%,y% 

LOCAL ligne clicx 


LOCAL colonne clics 

LOCAL 1igne* 

LOCAL colonne“ 

LOCAL old element* 

X#=xm#-xcartes 

ve=ymé-ycartes 

ligne clic*=(y%/16) 

colonne clic#=(x#/16) 

ligne%=ligne clic#tligne carte* 

colonne#=colonne clic“tcolonne carte“ 

old element*=carte| (colonne*, ligne“) 

IF old element#<>element courants 
carte|(colonne%,ligne%)=element courant“ 
posx#=colonne clic#*16+xcarte 
posy*=ligne clic*16+ycartes 
HIDEM 
PUT posx%, posy#,element$ (element courant#) 
SHOWM 

ENDIF 

RETURN 


L 
VO HKKEKEKRERAKAKALKAKARKAEERKRARE 
! * OPTION ‘QUITTER LE PRG' * 
DL 'KKKKKKKKKKEKKRERAARKARERERREREE 
PROCEDURE quitter programme 

LOCAL m$,t$,b% 

sortie#=0 

m$="VOULEZ-VOUS VRAIMENT [QUITTER CE PRG ?" 

choix$="OUI | NON" 

ALERT 0,m$,2,choix$,b% 

IF b#%=1 

sortie#=1 

ENDIF 

SHOWM 
RETURN 


1 OKKKKKKKKRKKKRARRRAERARAREX 
 * OPTION INFORMATIONS * 
L'AKKKÉAAKAKAKAAKAKAKRKRAKEREEXE 
PROCEDURE aff_infos 
LOCAL m$,b% 
1 
m$="EDITEUR DE CARTE EN GFA BASIC 
m$=m$+"|(C) 1991 ATARI MAGAZINE" 
m$=m$+"|(C) 1991 PATRICK LECLERCQ" 
ALERT O,m$,1," OK ",b% 
RETURN 


VO KXKXKKKAKEKEKKKRKKARAREX 

" * GESTION EDITEUR * 

D 'ORXKKKKKAKKKKARRRAREARAX 

PROCEDURE gestion editeur 
LOCAL xm%, ym%, km 
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DO 
DO 
MOUSE xm%,ym%, Km% 
EXIT IF km%<>0 
LOOP 


JF @tstzone(xm%,ym%,195,83,110,13) 
@quitter programme 

ENDIF 

EXIT IF sortie#=1 

IF @tstzone(xm%,ym%,195,56,110,13) 
@aff infos 

ENDIF 

1 

IF @tstzone(xm%,ym#,195,111,110,13) 
@charger carte 

ENDIF 

IF @tstzone(xm%,ym%,195,138,110,13) 
@sauver carte 

ENDIF 

IF @tstzone(xm%,ym%,229,14,20,14) 
Galler haut 

ENDIF 

IF @tstzone(xm%,ym%,251,14,20,14) 
Galler bas 

ENDIF 

IF @tstzone(xm%,ym#,251,30,20,14) 
Galler droite 

ENDIF 

IF @tstzone(xm%,ym%,229,30,20,14) 
@aller gauche 

ENDIF 

IF @tstzone(xm%,ym%,xcarte#,ycarte, 176,176) 
@clic carte(xm%, ym%) 

ENDIF 

IF @tstzone(xm%,ym%,261,166, 14,18) 
@inc_element 

ENDIF 

IF @tstzone(xm%,ym%,225,166,14,18) 
@dec_element 

ENDIF 

LOOP 
RETURN 


! 
L OKXKAKKKKAKXKKKRERKERRRARAAAZARÉ 


! * PROCEDURE PRINCIPALE * 


LOKKKKKKEKKKKKKRAERERRARRAARAARÉ 


PROCEDURE main 


nb_elements#=0 
ligne carte#=1 
colonne carte*=1 
element _courant#=1 
xcarte#=8 
ycarte%=12 
@charge elements ("ELEMENTS.BIN") 
Ginit carte 
HIDEM 
GRAPHMODE 2 
@aff_ ecran 
@aff carte 
BMOVE XB10S(2) ,adr2%, 32000 
@souris fleche 
SHOWM 
etat=1 
@gestion editeur 
RETURN 


Pour finir 


Nous verrons le mois prochain comment utiliser les cartes générées 
par EDITCART pour gérer les déplacements d’une équipe de person- 
nages sur un monde virtuel (affichage de l’image de l’équipe sur la 
carte, gestion des rencontres, interdictions ou autorisation de dépla- 


cements sur certaines cases, etc.) Vous trouverez en téléchargement 
sur le 3615 ATARI les listings de l’article, un exemple de carte et 
une image Degas contenant quelques éléments de dessin. 

Patrick Leclercq 











TOUS LES LISTINGS 
ET IMAGES 
DE CE 


BEST OF 


GFA BASIC 
SONT 
DISPONIBLES EN 
TELECHARGEMENT 
SUR LE 


3615 ATARI 
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PROGRAMMATION 
JEU DE ROLE (| 





Un jeu de rôle fonctionnel 


Voici un petit jeu de rôle type Ultima ou Fantaisy où le joueur se 
déplace sur une carte de grande dimension et fait de 
dangereuses rencontres. 


” 


Présentation du jeu 


Le joueur gère les déplacements d’un personnage dans un univers de 
type médiéval-fantastique. Cet univers est représenté sous la forme 
d’une carte de grande dimension dessiné avec des éléments graphi- 
ques de base (arbre, maison, montagnes, lacs, etc.) La carte est créée 
avec le programme EDITCART (voir jeu de rôle I). 

La carte est trop grande pour être dessinée entière à l'écran. Le pro- 
gramme en affiche juste une petite portion, réprésentant les environs 
immédiats du personnage. 

Ce dernier se trouve au milieu de l’image visible. Les déplacements 
sont réalisés en scrollant l’image de la carte. 

L'image de la carte est fabriqué avec 11x11 éléments graphiques me- 
surant chacun 16x16 pixels. Elle mesure 176x176 pixels. 


| | 
| | 
| Dessin de | 
| la carte | 
| 
| 


Les fléches du pavé numérique servent à indiquer la direction du dé- 
placement. Le programme interdit le déplacement sur certains types 
de case (plans d’eau et montagnes). 

Lors d’un déplacement, le personnage peut faire des rencontres. Cel- 
les-ci peuvent être bénéfiques, neutres ou hostiles. Leur nature dé- 
pend du type de case sur laquelle se tient le personnage. La plaine est 
un endroit assez calme où la majeure partie des rencontres sont 
neutres. Par contre, la forêt est un endroit dangereux où rôdent tou- 
tes sortes de créatures et de monstres, Le programme affiche les ren- 
contres dans une fenêtre graphique située à droite de la carte. 

Dans la version actuelle de GESCARTE, toutes les rencontres sont 
neutres car la place manquait pour écrire un système gérant les com- 


bats entre le personnage et les créatures de rencontres. Voir l’article 
jeu de rôle IV qui présente un système permettant de simuler un 
combat entre le personnage et une créature quelconque. Vous pour- 
rez fusionner GESCARTE et le système de combat pour obtenir un 
véritable déplacement avec rencontres et combat. 


Programmation de Gescarte 


Ce logiciel a été programmé en GFA Basic 3.5E, mais il est entière- 
ment compatible avec toutes les versions du GÆA Basic à partir de la 
version 3.0. Le code source fait plus de 1000 lignes de programme. 
Ce programme utilise le graphisme, stocke des données sur disque et 
lit des données à partir du clavier. Il n'utilise ni la souris, ni les fonc- 
tions sonores du ST. 


Les données graphiques du programme 


Le programme GESCARTE a besoin d’un certain nombre de données 
graphiques. Comme elles ne peuvent être définies dans le program- 
me, elles sont stockées dans des fichiers. Leur contenu est chargé en 
mémoire au début du programme. Ces fichiers sont ELEMENTS. BIN, 
CARTE.CAR et PERSO.BIN 


Le fichier graphique ELEMENTS.BIN 


Ce fichier contient les éléments graphiques de 16x16 pixels servant à 
dessiner l’image de la carte. Ces éléments graphiques sont créées à 
partir d’une image Degas Elite. | 

La création se fait avec l’utilitaire GENELEM.GFA (voir jeu de rôle I). 
La structure du fichier ELEMENT. BIN est la suivante : 32 octets conte- 
nant la palette de couleur des éléments, 1 octet contenant le nombre 
d'éléments du fichier et les éléments graphiques (134 octets par élé- 
ment). La taille d’une variable alphanumérique contenant un bloc de 
16x16 pixels est de 134 octets. Cette taille peut être mesurée avec la 
fonction LEN. 


GET 1,1,16,16,bloc$ 
PRINT LEN(bloc$) 
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La procédure @charge elements (fichi er$) charge dans le tableau 
alphanumérique element$ () les éléments stockés dans le fichier fi- 
chier$. Le nombre d'éléments chargés est écrit dans la variable glo- 
bale nb elements. 


DIM element$ (200) 

PROCEDURE charge elements(fichier$) 
LOCAL n% 
LOCAL palettef 


palette$=SPACES (32) 
OPEN “I",#1,fichier$ 
BGET #1,VARPTR(palette$) ,32 
VOID XBI0S(6,L:VARPTR(palettef)) 
nb_elements#=INP(#1) 
FOR n%=1 TO nb elements* 
element$(n%)=SPACES$(134) 
BGET #1,VARPTR(element$(n%)) ,134 
NEXT n% 
CLOSE #1 
RETURN 


La palette de couleurs est chargée dans une chaîne alphanumérique 
de 32 caractères. L'instruction SPACE$ permet de créer une variable 
de taille quelconque. Les 32 octets de a palette sont chargés avec 
Pinstruction BGET. 


palette$=SPACES$ (32) 
BGET #1,VARPTR(palette$) ,32 


La taille de la chaîne de caractères doit être obligatoirement égale ou 
supérieure au nombre d’octets chargés en mémoire. Il peut y avoir 
n'importe quoi stocké en mémoire après l’adresse de la chaîne de ca- 
ractère, Un mauvais chargement peut écraser ou modifier des va- 
riables importantes. C’est une excellente méthode pour créer un 
"bug furtif” très difficile à trouver. 

L'instruction XBIOS(6) permet de remplacer la palette de couleur 
système par la palette de couleur des éléments graphiques. 


VOID XBI0S(6,L:VARPTR(palette$)) 


Le nombre d'éléments du fichier est lu grâce à l'instruction INP Cel- 
le-ci permet de lire la valeur d’un octet à partir d’un fichier. 


nb_elements#=INP(#1) 


Les éléments sont chargés les uns après les autres. La zone mémoire 
de 134 octets nécéssaire au stockage d’un élément graphique est 
réservée avec l'instruction SPACES$. 


FOR n#%=1 TO nb elements* 
element$(n#)=SPACES (134) 
BGET #1, VARPTR(element$ (n#)) ,134 
NEXT n% 


Les éléments graphiques ont été stockés en mémoire avec l’instruc- 


tion GET. Pour afficher un élément graphique sur l’écran, il faut utili- 
ser l'instruction PUT. L'exemple suivant affiche l'élément numéro 1 
du tableau element$() à la position (10,10). 


PUT 10,10,element$(1) 


Le fichier CARTE.CAR 


Le fichier CARTE. BIN contient la description de la carte. Il est généré 
par l'éditeur de carte EDITCART. 

La structure de ce fichier est la suivante: un en-tête d'identification 
de 19 caractères, un octet contenant le nombre de colonnes de la car- 
te, un octet contenant le nombre de lignes de la carte et le codage de 
la carte proprement dit. Les éléments sont stockés ligne à ligne. 
L'en-tête d'identification est la chaîne de caractère CARTE JdR 
ATARI MAG". Cette chaîne peut servir À contrôler si le fichier lus 
contient bien une carte. 

La carte est stockée en mémoire dans le tableau carte|(). Ce ta- 
bleau est du type entier court (entier 8 bits). Etant donné qu’un en-- 
tier court ne peut prendre que 256 valeurs (de O à 255), il ne peut y 
avoir que 256 éléments possibles. 


DIM carte| (200,75) 


Les dimensions du tableau carte|.() sont fixés arbitrairement à 200 
lignes de 75 éléments. Si vous désirez avoir une carte plus grande, il 
faut augmenter les dimensions du tableau. 

La procédure @charge carte(nom$) charge en mémoire la carte 
stockée dans le fichier nom$. Les dimensions de la carte sont écrites 
dans les variables globales nb lignes“ et nb colonnesx. 


PROCEDURE charger carte(nom$) 
LOCAL entete$ 
LOCAL 1%,c% 
OPEN "I",#1,nom$ 
entete$=SPACES (19) 
BGET #1,VARPTR(entete$) , 19 
nb_colonnes#=INP(#1) 
nb_lignes#=INP(#1) 
FOR c%=1 TO nb colonnes* 
FOR 1%=1 TO nb lignes* 
carte|(c%,1%)=INP(#1) 
NEXT 1% 
NEXT c#% 
CLOSE #1 
RETURN 


Cette routine charge l’identificateur de fichier, mais ne le teste pas. Si 
vous désirez le faire, la modification est simple à réaliser, comme le 
montre l'exemple suivant. 


entete$=SPACES$ (19) 
BGET #1,VARPTR(entete$), 19 
IF entete$<>"CARTE JdR ATARI MAG". 
PRINT "Ce fichier ne contient pas de carte" 
ELSE 
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! Chargement carte 
ENDIF 
Le fichier graphique PERSO.BIN 


Le fichier PERSO. BIN contient l'image du personnage de 16x16 pi- 
xels. Cette image est affichée sur la carte pour visualiser la position 
du personnage. La procédure @charge perso(nom$) charge en mé- 
moire l’image stockée dans le fichier nom$. L'image est mémorisée 
dans la variable globale perso$. 

L'image doit être affichée en superposition sur la carte. L'opérateur 
graphique logique AND permet d’afficher une image en superposition 
sur un décor quelconque à condition que l’image soit dessinée en 
couleur 0 sur un fond de couleur 15. 


PUT px,py,persoÿ,1 


Cette technique d’affichage est un ”affichage en ombre chinoise”. 
Pour obtenir plus de détails sur les opérateurs graphiques logiques et 
leurs utilisations, vous pouvez vous référer à l’article: «Opérateur 
graphique logiques. 

L'image PERSO. BIN est fabriqué par le programme IMGPERSO.GFA à 
partir d’une image Degas contenant la silhouette du personnage. 


L'OAAAKAKAAKKRRAAKARAKARARKRREARRAAREEXE 


! * SAISIE IMAGE DU PERSONNAGE * 


L'KKKKKKKKKXKKKAKKRKXKRKKKKKREREREXE 


RESERVE 100000 


@load degas("ELEMENTS.PI1") 
GET 1,35,16,50,perso$ 

OPEN "o",#1,"perso.bin" 
BPUT #1,VARPTR(perso$) , 134 
CLOSE #1 

END 


LOKKKKKAKEKKKEKKKERKEKAXKKEEX 


! X CHARGEMENT IMAGE * 

‘x  DEGAS ELITE  * 

LE OKKKKKKKKKKKKREKRKKKRKKRKE 

PROCEDURE load degas(nom$) 
LOCAL palette$ 


palette$=SPACES (32) 
OPEN "I",#1,nom$ 
SEEK #1,2 
BGET #1,VARPTR(palette$) ,32 
VOID XBIOS(6,L:VARPTR(palettef)) 
BGET #1,XBI0S(2),32000 
CLOSE #1 
RETURN 


Structure de Gescarte 


Le programme GESCARTE est constitué d’un certain nombre de mo- 
dules. Un module est un ensemble de routines qui traite un pro- 


blème donné. Par exemple, le module de-déplacement s'occupe de 
gérer entièrement le déplacement sur la carte (affichage de l’image de 
la carte, mise à jour des variables internes, tests des déplacements 
possibles, appel du module de rencontre, etc.) Un module est com- 
posé d’une ou plusieurs routines principales et de sous-routines 
dépendant des routines principales. 

Les modules de-GESCARTE sont: initialisation, module principal, in- 
terface utilisateur, déplacement sur la carte, gestion des rencontres et 
gestion de la fenêtre graphique. Il y a aussi un module de fonctions 
systèmes. Les fonctions systèmes sont des procédures de base qui 
peuvent être réutilisées dans n'importe quel type de programme. 


Module d'initialisation 


Il est constitué par la procédure @main, qui initialise les variables du 
programme, charge en mémoire les données du jeu et affiche l’image 
de la carte. 

Les données graphiques sont stockées sur disque et les données 
numériques sont définis dans des lignes de DATA. L'initialisation de 
chaque type de données est réalisé par une procédure particulière ap- 
partenant à divers modules. Par exemple, la procédure @init_ren- 
contres appartient au module de gestion des rencontres. 

Une fois Vinitialisation terminée, la procédure @main appelle la 
procédure @gestion programme. Cette procédure est la routine 
principale du module principale de GESCARTE 


Module interface utilisateur 


L'interface utilisateur est le module qui s'occupe de la commiunica- 
tion entre le joueur et le programme. Il est très important. Une bon- 
ne interface utilisateur peut faire la différence entre un bon program- 
me agréable à utiliser et un mauvais programme peu pratique à utili- 
ser. Plusieurs logiciels très performants sur le plan technique ont été 
des échecs commerciaux à cause d’une mauvaise interface utilisateur. 
L'interface utilisateur de GESCARTE est assurée par les routines 
@att_ev, Gquitter programme et le module de gestion de la fenêtre 
graphique. 

La fonction @att_ev attend que l’utilisateur presse sur une fléche du 
pavé numérique ou sur la touche [Esc] pour renvoyer un code de 
fonctions spécifique au programme. 


1 : Fléche haute 
2 : Fléche bas 

3 : Fléche droite 
4 : Fléche gauche 
5 : Touche [Esc] 


Si vous décidez de modifier l’interface utilisateur de GESCARTE il suf- 
fit de modifier Gatt_ev sans changer le reste du programme. C’est 
l'avantage d’une communication inter-routines par codes numéri- 
ques. Pour rajouter de nouvelles fonctions au programme (examen 
des possessions du personnage, sommeil, etc.), il faut définir l’action 
correspondant à la nouvelle fonction (touche du clavier, clic souris, 
etc.) et lui donner un code. Tous les codes supérieurs à 6 sont dispo- 
nibles. 

La procédure @quitter programme demande à l'utilisateur une con- 
firmation de sa décision de quitter le programme. Elle affiche une 
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boîte d'alerte avec le message “Voulez-vous vraiment quitter 
ce pr?’ Si le joueur confirme sa décision, la variable globale sor- 
tie% est mise à 1. 


Module principal 


Le module principal gère l'exécution du programme. 
Il est constitué de la procédure @gestion programme et de la pro- 
cédure @exec_ fonction. 


PROCEDURE gestion programme 
LOCAL ev* 
DO 
ev#=@att_ev 
@exec_fonction(ev*) 
EXIT IF sortie#=1 
LOOP 
RETURN 


La procédure @gestion_programme contient la boucle principale du 
programme. Cette boucle s'exécute tant que la variable globale sor- 
tie% ne contient pas 1. La fonction @att_ev lui donne le code de la 
commande sélectionnée par le joueur. 


PROCEDURE exec_fonction(f#) 
SELECT f#% 
CASE 1,2,3,4 
@gestion deplacement (f#) 
CASE 5 
@quitter programme 
ENDSELECT 
RETURN 


La fonction @exec fonction(ev#) exécute la routine associée à la 
fonction utilisateur f%. C’est un système d’aiguillage qui dirige le 
déroulement du programme vers les routines de déplacement ou 
vers la routine gérant la sortie du programme. Si vous rajoutez des 
fonctions à votre programme, c’est ici qu’il faut implanter les appels 
des nouvelles procédures. 

Par exemple, une fonction permettant d’examiner les possessions du 
personnage (numéro 6), ou une fonction permettant de changer l'ar- 
me du personnage (numéro 7), ou de boire une potion (numéro 8), 
etc. 


SELECT f% 
CASE 1,2,3,4 

@gestion deplacement (f%) 
CASE 5 

@quitter programme 
CASE 6 

Qexamen possessions 
CASE 7 

@changer arme 
CASE 8 

@boire potion 
ENDSELECT 


Module de déplacement sur la carte 


Il gère les déplacements sur la carte. C’est le module le plus comple- 
xe du programme. 

Les fonctions appartenant à ce module sont: @gestion deplace- 
ment, @init evenements, @exec_ deplacement, @aller droite, 
@aller gauche, @aller haut, @aller bas, @preparation_ecr_- 
travail et@visualisation ecr travail. 

Avant de plonger dans les détails techniques, voyons comment s’ef- 
fectuent les déplacements. Théoriquement, le personnage se déplace 
de case en case. Ce serait simple à gérer si toutes les cases était les mée- 
mes, ce qui n’est pas le cas. Le déplacement est possible sur la plupart 
des cases, mais pas toutes (plan d’eau par exemple). Le personnage 
peut aussi rencontrer des créatures sur certaines cases. 

Le programme associe un numéro à chaque type de traitement. Le 
numéro 0 correspond à une impossibilité de déplacement. Le numé- 
ro 1 correspond à un déplacement simple. Le numéro 2 correspond 
À un déplacement sur une plaine. le numéro 3 correspond à un 
déplacement en forêt et le numéro 4 à un déplacement sur des 
ruines. Le tableau dev_ev#(num el ement%) contient le numéro de 
traitement associé à l'élément graphique num_element#. Les associa- 
tions entre les numéros d'éléments graphiques et les traitements sont 
définies dans des lignes de DATA. La procédure @init evenements 
initialise le tableau dev_ev%() avec les données des DATA. 


def evenements: 
DATA 1,0 
DATA 2,0 
DATA 3,2 
DATA 4,2 
DATA 5,0 
DATA 6,0 
DATA 7,0 
DATA 8,0 
DATA 9,4 
DATA 10,0 
DATA 13,3 
DATA -1 


Les éléments graphiques 1,2,5,6,7,8 et 9 (plan d’eau, montagne, mai- 
sons, villages et château) ont le numéro de traitement 0, c’est-à-dire 
que le personnage ne peut se déplacer sur une case de la carte occupé 
par l’un de ces éléments. 

Le traitement 2 (déplacement sur plaine avec possibilité de rencont- 
re) correspond aux éléments graphiques 3 et 4 (dessins de plaines). 
Lorsque le programme déplace le personnage sur une case de la carte 
occupée par un élément de plaine, il appelle la routine gérant les ren- 
contres en plaine (procédure @rencontre_plaine). 

Le traitement 3 (déplacement en forêt avec possibilité de rencontre) 
correspond à l'élément graphique 13 (dessin de forêt). Le traite- 
ment 4 (déplacement sur ruines avec possibilité de rencontre) corres- 
pond à l'élément graphique 9 (dessin de ruines). 


Routine @gestion__ deplacement 


La procédure @gestion_ deplacement (di rection) sélectionne le 
type de déplacement en fonction du type d’élément sur lequel le per- 
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sonnage vas se déplacer. Une structure SELECT-ENDSELECT sélec- 
tionne les routines à appeler en fonction du type de traitement. 


! La case où veut se rendre t 
" le personnage est définis 
! par la position (c%,1%). 


n#=dev_ev#(carte|(c%,1%)) 
1 


SELECT n% 


CASE 1 
@exec deplacement (direction) 
CASE 2 


@exec_ deplacement (direction#) 
@rencontre plaine 
CASE 3 
@exec deplacement (direction) 
@rencontre foret 
CASE 4 e 
@exec_ deplacement (direction) 
Grencontres ruines 
ENDSELECT 


Limitations aux bords de la carte 


Le programme ne gère pas les déplacements sur les bords de l'écran. 
Rien n'empêche donc le personnage de dépasser les limites de la car- 
te. Pour éviter cela, il faut placer une barrière d'éléments infranchis- 
sables aux limites de la carte. Ce peut être de l’eau ou des montagnes. 
De toute façon, les bords de la carte doivent être visualisés d’une ma- 
nière logique pour le joueur. De nombreux programmes du com- 
merce sont limités par la mer. La carte fournie en téléchargement sur 
le serveur 3615 ATARI avec les programmes EDITCART et GESCARTE 
(sous le nom de JEUGFA24.TOS) est limitée par une vaste étendue 
d’eau sur laquelle le joueur ne peut se déplacer. 


Routine @exec__ deplacement 


\ 


La routine @exec deplacement(direction%) exécute un déplace- 
ment simple dans la direction direction. C’est une fonction d’ai- 
guillage qui sélectionne la routine de déplacement à utiliser pour 
gérer le déplacement dans la direction désiré. 


PROCEDURE exec_ deplacement(direction) 
SELECT directions 
CASE 1 

Galler haut 
CASE 2 

@aller bas 
CASE 3 

Galler droite 
CASE 4 

Galler gauche 
ENDSELECT 

RETURN 


Les procédures @aller haut Galler bas, Galler droite er @al- 


ler gauche déplacent l’image de la carte dans une direction précise. 
Leurs structures est assez complexe car redessiner rapidement l’ima- 
ge de la carte avec des routines écrites entièrement en GFÆA Basic n'est 
pas simple. 

Il est impossible de redessiner l’image de la carte sur l’écran suffisam- 
ment rapidement pour que le joueur ne voie pas l'opération s’effec- 
tuer. Ce serait possible en Assembleur, mais pas en GFA Basic. Pour 
éviter cet effet graphique désagréable à l'oeil, les routines de déplace- 
ments effectuent les opérations graphiques dans un écran virtuel si- 
tué en mémoire. 

Une fois les opérations graphiques terminés, le programme devrait 
recopier l’image de la carte sur l’écran, mais l’expérience prouve que 
cette technique n’est pas assez rapide pour obtenir un affichage de 
bonne qualité. L'image flashe un peu. Pour éviter cela, le programme 
ne recopie pas l'écran virtuel dans la mémoire écran du ST, mais 
change l’adresse de la mémoire écran par l’adresse de la mémoire vir- 
tuelle. L'écran virtuel devient alors la nouvelle mémoire écran. 

Le programme travaille sur deux zones mémoires qui sont alternati- 
vement utilisés comme mémoire écran et écran virtuel. Leurs rôles 
sont inversés à chaque affichage. Les adresses de ces zones mémoire 
sont stockées dans les variables adr1% et adr2%. L'adresse de l'écran 
visible à l'écran est stockée dans la variable ecr visible%. L'adresse 
de l’écran virtuel est stockée dans la variable ecr_travai l%. 

La position de la portion de carte visible par rapport à la carte totale 
est stockée dans les variables ligne carte% et colonne carte. Les , 
routines de déplacement modifient ces variables en fonction du sens 
de déplacement. 


La routine @aller__bas 


Pour comprendre comment fonctionnent ces routines, la meilleure 
méthode est encore de prendre un exemple. 

Ce sera la routine @aller bas qui déplace l’image de la carte vers le 
bas. L'image de la carte est constituée d’un ensemble de 11x11 élé- 
ments graphiques, c’est-à-dire de 11 lignes constituées chacune de 11 
éléments graphiques. L'image du personnage est affichée sur la case 
située au milieu de la carte (sixième ligne, sixième colonne). 

Le déplacement ne s'effectue que d’une ligne à la fois. Seule une par- 
tie de l’image est modifiée. Les lignes 2 à 11 sont toujours affichées 
sur l'écran, avec un décalage d’une ligne vers le haut. La ligne 2 se 
retrouve à la place de la ligne 1. 

La ligne 3 se retrouve à la place de la ligne 2, etc. Seule la ligne 11 
doit être redessinée par le programme. Cette technique de réaffichage 
partiel permet de gagner beaucoup de temps par rapport à un réaffi- 
chage complet, 

La procédure @al ler bas recopie dans l'écran virtuel les lignes 2 à 
11 à la position des lignes 1 à 10. Ensuite, elle redessine l'élément du 
milieu de la carte qui avait été altéré par l'affichage de l’image du per- 
sonnage. Elle dessine ensuite la nouvelle ligne, puis affiche l’image 
du personnage au milieu de la carte. Une fois la carte terminée, le 
programme change l'adresse de la mémoire écran par l'adresse de 
l'écran virtuel. Le changement de l'adresse écran est effectué par la 
procédure @visualisation ecr travail. 

Etant donné que les adresses de la mémoire écran et de l'écran vir- 
tuel sont inversés lors des déplacements, les messages qui sont affi- 
chés dans la fenêtre graphique disparaissent à chaque déplacement 
pour réapparaître au suivant. Pour éviter cela, la procédure Cco- 
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pie fenetre recopie le contenu de la fenêtre graphique dans l’écran 
virtuel juste avant l’inversion des adresses. 

Remarque: La procédure @visualisation_ecr travail change l'a- 
dresse de la mémoire écran par l’adresse de l’écran virtuel (ecr tra- 
vai 1%). Cette procédure utilise la procédure @set_ecr_phys qui uti- 
lise elle-même la fonction XB10S(5). Cette instruction système n’a 
pas une action instantanée : elle attend que le spot vidéo ait finit de 
dessiner l’image pour changer l'adresse de la mémoire écran. L'inst- 
ruction VSYNC bloque le déroulement du programme tant que le 
spot vidéo dessine l'écran, et donc tant que la fonction XBIOS(5) n'a 
pas changée l'adresse de la mémoire écran. Cela permet d'éviter des 
“bavures vidéo” désagréables à l'œil. 


PROCEDURE visualisation ecr travail 
@set_ecr phys(ecr travail#) 
VSYNC 

RETURN 


Module de rencontres 


Le module de rencontre gère les rencontres et les découvertes que 
peut faire le joueur en se déplaçant sur la carte. 

Il est constitué des routines @rencontre plaine, @rencontre_fo- 
ret, @rencontre ruines, @tst_probabilite, @tirage rencont- 
re, @init rencontres, Gtirage decouverte, @init_decou- 
vertes er @init tables decouvertes. 

Toutes les cases où peuvent apparaître des créatures ont une probabi- 
lité de rencontre. Lorsque le personnage entre dans l’une de ces 
cases, le programme effectue un tirage de probabilité pour détermi- 
ner s'il se produit effectivement une rencontre. 

La fonction @tst probabilite(prob%) permet de savoir si un 
événement de probabilité prob% se produit effectivement. Elle ren- 
voie la valeur logique vraie (TRUE) si l’événement se produit et la va- 
leur logique fausse (FALSE) si l'événement ne se produit pas. Le tira- 
ge d'une probabilité comprise entre 1 et 100 se fait avec l'instruction 
RANDOM. 

Une fois que le programme sait qu’il se produit une rencontre, il 
détermine la nature de la créature en utilisant une table de rencontre. 
Une table de rencontre est une liste de créatures possédant chacune 
une probabilité d'apparition. 

La fonction @tirage creature(table#) tire une créature de la 
table de rencontre table%. Il existe une table de rencontre pour la 
plaine, une pour la forêt et une pour les ruines. 

Les routines @rencontre plaine, @rencontre foret et @ren- 
contre ruines gérent les 3 types de rencontres qui peuvent se pro- 
duire dans GESCARTE Pour comprendre comment fonctionnent ces 
routines, prenons l'exemple de @rencontre_ plaine. Cette procédu- 
re gère les rencontres que le personnage peut faire dans un énviron- 
nement de plaine. 

La probabilité de rencontre est de 10%. Si la rencontre se produit, la 
fonction @tirage creature permet de déterminer le type de 
créature rencontrée, Le programme affiche alors le nom de la créatu- 
re dans la fenêtre graphique. L'affichage se fait avec la procédure 
@aff fenetre. 


PROCEDURE rencontre plaine 
LOCAL creature 


LOCAL m$ 
IF @tst_ probabilite(10) 
creature*-@tirage creature(1) 
m$="RENCONTRE : “+creature$(creature*) 
@aff_fenetre(m$) 
ENDIF 
RETURN 


La routine @rencontre ruines gère les rencontres, mais aussi la 
découverte d’un trésor. La gestion d’une découverte se fait de la 
même manière que la gestion d’une rencontre: test de probabilité et 
table de découverte. 


Initialisation des tables de rencontres 


Une table de rencontre est une liste de créatures avec une probabilité 
de rencontre. La somme des probabilités d’une table doit être de 
100. Le tableau table rencontre%() contient les différentes tables 
de rencontre du programme. 

Il peut mémoriser 20 tables pouvant contenir chacune jusqu’à 30 
probabilités de rencontre. 


DIM table rencontre#(20,30,2) 


Le tableau table rencontre#(t#%,r%,1) contient la probabilité de 
rencontre avec la créature table recontre%(t#, r%,2). 

Les tables sont définies dans des lignes de DATA sous la forme 
numéro créature/probabilité de rencontre. La valeur -2 signifie qu’il 
y à encore une table après la table courante. la valeur 1 est l'indica- 
teur de fin de données. La table 1 est la table de rencontre en plaine: 
la table 2 est la table de rencontre en forêt et la table 3 est la table de 
rencontre des ruines. 


LOKKKKKKKKRRKRAKKKKERERKREX 


DES TABLE 1 ñ 
Ce PLAINE «3 
LOKKRKKKARAKREKERKRARRAEX 
! x  Paysans : 50% * 
! * Colporteur : 10% * 
! *  Voleurs HAE ET 
! * Chiens LOS 
FrSSOneS : 10% * 
LOKKKKKEKKEKKKERKERREERKRAKXE 
DATA 21,50 

DATA 22,10 

DATA 20,20 

DATA 2,10 

DATA 50,10 

DATA -2 


Définition des découvertes 


Les objets que le personnage peut découvrir sont définis par une des- 
cription stockée dans le tableau alphanumérique decouverte$(). 
La description de ces objets est définis dans des lignes de DATA. 

La procédure @init decouvertes initialise le tableau decouverte$(). 
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Définition des créatures 


Les créatures que le personnage peut rencontrer sont définies uni- 
quement par leurs noms. Ceux-ci sont stoçkés dans le tableau crea- 
ture$(). Les créatures sont définies dans des lignes de DATA. La 
procédure @init_creatures initialise le tableau creature$() avec 
les données stockées en DATA. Les créatures sont définies de ma- 
nière minimale”. Si vous voulez réalisez un système de combat, il 
faut rajouter d’autres caractéristiques. 


Module de gestion de la fenêtre graphique 


La fenêtre graphique est une zone située À la droite de la carte où le 
programme peut afficher des messages. Le programme GESCARTE 
Putilise pour afficher les rencontres et les découvertes de trésors. 

Elle est située à la position (194,12) et mesure 118 pixels de large et 
178 pixels de haut. Elle peut contenir 20 lignes de 14 caractères. La 
variable globale ligne courante* contient la position courante 
d'affichage. : 

La procédure @cls fenetre dessine l’image de la fenêtre vide. Elle 
sert à afficher la fenêtre graphique au début du programme et à l’ef- 
facer en cours de route. 

La procédure @init_fenetre affiche l’image de la fenêtre et mer la 
variable ligne courante* à0. 

La procédure @aff_fenetre(message$) affiche le texte messages 
dans la fenêtre graphique. Le texte est mis en forme par la routine 
@format pour ne pas dépasser les limites de la fenêtre. Chaque ligne 
formatée est affichée par la fonction @aff_ligne. 

La routine @aff ligne(ligne$) affiche la ligne ligne$ à la posi- 
tion courante de la fenêtre. La ligne est affichée à la position stockée 
dans la variable ligne courante“. Si celle-ci contient une valeur 
supérieure à 19, il ne reste plus de place libre dans la fenêtre car les 
numéros de lignes sont comprises entre O et 19. Le programme scrol- 
le alors la fenêtre graphique d’une ligne vers le haut. 

La procédure @scroll_fenetre scrolle le contenu de la fenêtre gra- 
phique d’une ligne vers le haut. Le scrolling est réalisé en copiant les 
lignes 1 à 19 à l'emplacement des lignes 0 à 18. La copie est faite avec 
les instructions graphiques GET et PUT. Une fois le scrolling effectué, 
la dernière ligne est effacce. 

La procédure @copie_ fenetre recopie le contenu de la fenêtre gra- 
phique de l'écran physique vers l'écran logique (écran visible vers 
écran de travail). Cette procédure est utilisée par le système d’afficha- 
ge de la carte qui travaille en permutant les écrans physique et lo- 


gique. 
Les fonctions systémes 


Les fonctions systèmes sont des fonctions multi-usages qui remplis- 
sent des tâches classiques dans toutes sortes de programmes. Ils ne 
dépendent pas de GESCARTE et peuvent être réutilisés dans toutes 
sortes de programmes. 

Les fonctions systèmes sont @waitclavier @vider clavier, 
@cls_ ecran, Ecadre, @set ecr 109, @set ecr_phys et Eformat 
La procédure @waitclavier attend que l'utilisateur presse sur une 
touche. Elle ne renvoie pas le code de la touche pressée. C’est l’équi- 
valent de l'instruction VOID INP(2). A ceci prés qu’il est plus par- 
lant de trouver @waitclavier dans un listing que VOID INP(2). 


La procédure Gvider clavier efface tous les caractères stockés dans 
le tampon clavier. Elle permet d'annuler l'effet de la fonction d'au- 
to-répétition du clavier ST. Cela peut être utile dans certains cas. 

La routine @cls_ecran(c#) efface l'écran en le remplissant avec la 
couleur c#. Cette routine est plus pratique que l'instruction CLS qui 
remplis uniquement l'écran avec la couleur 0. Cela permet d’avoir 
un fond d’écran de n'importe quelle couleur. 

La procédure @cadre(px%,py%,tx%,ty%,f#,b%) dessine un cadre 
graphique de dimensions (tx%,ty#) à la position (px%,py#). Le 
fond du cadre est de la couleur f%, alors que les bords sont dans la 
couleur b%. C’est une sorte d'instruction PBOX amélioré. 

La routine @set_ecr log(adr ecran“) permet de changer l’adres- 
se de l'écran logique, c’est-à-dire l'adresse de l'écran où travaillent les 


. fonctions graphiques du GFA Basic Le nouvel écran de travail doit 


faire 32000 octets pour éviter les plantages systèmes. Cette routine 
permet de réaliser des opérations graphiques en mémoire sans que 
rien n'apparaisse à l'écran. 

La procédure @set_ecr_phys(adr ecran*) permet de changer l'a- 
dresse de l'écran physique, c’est-à-dire l'adresse de la mémoire écran. 
C'est une fonction dangereuse qu’il faut employer avec prudence. La 
nouvelle mémoire écran doit faire 32000 octets et commencer à une 
adresse multiple de 256 (cette limitation n'existe pas sur le STE où 
l'adresse de la mémoire écran peut être fixée à n'importe quelle adres- 
se paire). En utilisant cette fonction avec @set_ecr_109, on peut 
réaliser des affichages très rapides, mais assez complexes. 

La routine @format{m$,taille) est une routine qui formate le’ 
texte m$ en lignes ne dépassant pas taille* caractères. Le texte est 
formaté de manière à ne pas couper les mots. Le texte formaté est 
stocké dans le tableau alphanumérique lignes$(). La variable glo- 
bale nb_lignes% contient le nombre de lignes formarées présentes 
dans le tableau lignes$(). 


Améliorations du programme 


Le programme GESCARTE peut être amélioré de nombreuses maniè- 
res. Vous pouvez ajouter de nouveaux éléments graphiques et de 
nouvelles tables de rencontres. Un système de sous-cartes peut per- 
mettre au personnage d'entrer dans les maisons et d'explorer les 
châteaux. 

L'interface utilisateur peut être modifiée pour fonctionner entière- 
ment à la souris. Des icônes peuvent représenter les différents op- 
tions du programme (déplacement, examen du personnage, som- 
meil, manipulations des objets possédés par le personnage, sauvegar- 
de de la partie, chargement d’une ancienne partie, etc.) 

Vous pouvez prévoir une possibilité de dialogues entre le personnage 
et les créatures qu’il rencontre pendant ses déplacements. 

Pour transformer ce logiciel en véritable jeu de rôle micro, il faut 
prévoir un but et des sous-buts. En général, ce but est la destruction 
d’un puissant sorcier. Les sous-buts peuvent être la recherche d’infor- 
mations, d'objets magiques très puissants (armes, armures et objets 
divers) et éventuellement de sorts. Certains endroits de la carte peu- 
vent être extrêmement dangereux pour un personnage débutant sans 
expérience et sans équipement particulier. 


Téléchargement 


Vous pouvez obtenir les listings de EDITCART et de GESCARTE sur le 


ATARI MAGAZINE DPAFA BEST OF GFA BASIC 








3615 ATARI. Ces programmes sont accompagnés d'images Degas 
Elite contenant des exemples d’éléments graphiques de 16x16 pixels 
et un exemple de carte. 


LOXKKKKKKEKKKKKRRRARERERERAREARERKRE 


‘x JEU DE ROLE STYLE ULTIMA  * 
‘x GFA BASIC 3.xx * 
| EXAKKKRARARRRRRERERARERERERRAARE 
‘x (C) 1991 ATARI MAGAZINE  * 
‘ * (C) 1991 PATRICK LECLERCQ  * 


LL O'XRKAKAKAKRERERERARERERERRRRRARERE 


RESERVE 100000 
! OPTION BASE 1 
DIM element$ (200) 


DIM creature$ (200) 


DIM decouverte$ (200) 
DIM lignes$(20) 


DIM table rencontre#(20,30,2) 
DIM table decouverte%(20,30,2) 


DIM def_ev%(200) 

l 

adr tampon%=MALLOC(32255) 

adr2%=(adr tampon%+255) AND &HFFFFFFO0 
adr1#%=XB10S (2) 

nb colonnes%=-1 

nb lignes#=-1 

DIM carte| (200,75) 


main 


D OKKKRKKKERERRERERRRRRRRAAEREARERURAUAR 


! * RETOUR AUX CONDITIONS DE DEBUT * 


LOKKKKKKKKKKKEKRKAKKRKERERKRRERRERRRRARE 
@set ecr log(adr1#) 
@set_ecr phys(adr1#) 


CLS 
VOID MFREE(adr tampon“) 
END 





KRAKKRAKREEKKRKEEKRREEEERERKRRRERERERERER 


! %  ATTENTE PRESSION SUR UNE TOUCHE * 


LOXKKKKKKERARREREER ERREUR RIRE AREA ERE HR 


! * Cette fonction ne renvoie pas & 


" * Je numéro de touche. C'est sn 
! * l'équivalent de l'instruction # 
! * VOID INP(2) 7 


LOHRKAKKKEKKRARRARERKKAERAARAREAREEXERAE 


PROCEDURE waitclavier 


DO 
EXIT IF INKEY$<>"" 
LOOP 
RETURN 


D OKKKKKKKAKARKRKRAKRERERKRREARE 
! * VIDER TAMPON CLAVIER * 
D OKKRKKRRRAKERARARKARRAREREARX 
PROCEDURE vider clavier 

DO 

EXIT IF INKEY$="" 

LOOP 

RETURN 


PROCEDURE set_ecr log(adr ecran“) 
VOID XBIOS(5,L:adr ecran%,L:-1,-1) 

RETURN 

PROCEDURE set_ecr_phys(adr_ ecran“) 
VOID XBIOS(5,L:-1,L:adr ecran%,-1) 

RETURN 


LOKXAKKKKKKKKREREKREERERKRR 
* *  EFFACEMENT ECRAN * 
VOHAKKKAKEXEKERÉRERREXEX 
1 ORXEKKERKEREEREERÉRÉERRÉERARELRERRAREKREARERRRRRARER 
1% Cc% : couleur de remplissage de l'écran * 
V1 OKKKAKERKRARELEERELEREERERAREREREREARERERERXEAER 
PROCEDURE c1s_ecran(c#) 

DEFFILL c% 

PBOX 0,0,319,199 
RETURN 


LORKKKAKAKKKKARRERRERRREARARERÉKRER AR 

! * AFFICHAGE CADRE GRAPHIQUE * 

LOKEHKKKKKEAKEKKKKRRKAKEKRERKRRERREREREE 

PROCEDURE cadre(px%,py%,Etx%, ty%, f%,b%) 
LOCAL px2%,py2% 


px2#=px#ttxe-1 
py2#%=py#tty%-1l 

DEFFILL f#% 

PBOX px%,py%,px2%,py2% 


COLOR b% 
BOX px%,py%,px2%,py2% 
RETURN 


lOKKKKKAAAAKARERXKEREREREREREE 


Lx * 


! x ROUTINES DE GESTION DE * 
" * LA FENTRE DES MESSAGES * 
* 


1x 


D OLRERKRERAREREREERERAERRRREKÉ 
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KKKKKKKKEKERRARRRARÉRÉRERAX 


* FORMATAGE D'UN TEXTE * 


KKKKKKKKRARARERARARERERALAX 
* 


HRK RH HR KR RCA RAR RE ARR RAA RERO ARR ARR NOR RO A RRROR OUR 


HR À OUR FOX. CE CX 


* 


SORTIE ROUTINE : 


tableau lignes$(). 


Cette routine découpe un texte en plusieurs lignes* 


* 


pour un affichage propre. Le découpage se fait au * 
niveau des mots. 

PARAMETRES ROUTINE : 

m$ : texte à formater 

taille : nombre maximum de lettres par ligne 


Æ %æ * *% *.- 


* 


Les lignes sont stockées dans le tableau lignes$()* 
La variable nb lignes* contient 1e nb de lignes du* 


* 


KKKKKKKEKKRERERÉERRERRERERRAKKEERRRRERARREAERRKRRREREAX 
” 


PROCEDURE format (m$, tail le%) 


LOCAL tampon$ 
LOCAL p# 
LOCAL c$ 
LOCAL Tigne$ 


nb lignes#=0 

tampon$="" 

ligne$="" 

FOR p%=1 TO 20 
lignes$(p%)="" 

NEXT p% 


VU KXkKKKKKKEKKKERKAKARKERKRKERÉX 
1 x BOUCLE DE DECOUPAGE * 
LOLkKKKKKKKKKKEKKKEHREEREERERÉE 
FOR p#=1 TO LEN(m$) 

c$=MID$ (m$,p%, 1) 


IF c$<>" " 
tampon$=tampon$+c$ 
ENDIF 
IF c$=" " 
IF LEN(Tigne$)+1+LEN(tampon$)<=taillex 
IF ligne$="" 
ligne$=tampon$ 
tampon$=""! 
ELSE 
ligne$=1igne$+" !+tampon$ 
tampon$=!"" 
ENDIF 
ELSE 
INC nb_lignes* 
lignes$(nb lignes*)=ligne$ 
ligne$="" 
1F tampon$<>"" 


tampon$=tampon$+" " 
ENDIF 
ENDIF 
ENDIF 


NEXT p# 


LOKKKKAKKKKKRÉRARRARKERXE 


‘ k FIN DU DECOUPAGE * 

1 OXKKKKKKKKKAKKRKRKEREREX 

IF (ligne$="") AND (tampon$<>"") 
INC nb lignes 
lignes$(nb lignes)=tampon$ 
tampon$="" 

ENDIF 


IF (tampon$<>"") AND (1igne$<>"") 
IF LEN(1igne$)+1+#LEN(tampon$)<=tai lle“ 
INC nb lignes 
lignes$(nb lignes*)=ligne$+" "+tampon$ 
ligne$="" 
tampon$="" 
ELSE 
INC nb lignes* 
lignes$(nb lignes*)=ligne$ 
ligne$="" 
INC nb lignes* 
lignes$(nb 1ignes*)=tampon$ 
tampon$="" 
ENDIF 
ENDIF 
RETURN 
LOKRERRKKKEREKREKRERÉERÉERNÉARÉARARARARAE 
‘ x  EFFACEMENT FENETRE MESSAGES * 
! TK HORORR HORDE RAR HRK HRK RER OH OR AH RK 
PROCEDURE cls_ fenetre 
@cadre(194,12,118,178,5,0) 
RETURN 


! 
LD OKKKKKKKKKARERAEKERERARARARAR 
! %  SCROLLING VERS LE HAUT * 
1 KXKKKKKKRARRERKKRRRARERKRARARERXE 
PROCEDURE scroll_fenetre 
LOCAL scrol1$ 
GET:196,24,308,185,scrol1$ 
PUT 196,15,scrol1$ 
@cadre(196,177,112,9,5,5) 
! Effacement dernière ligne 
RETURN 3 


LOKKAREKEKKREERERARRRKRRERRÉEARARÉRELRARRARARAUE 


ï x AFFICHAGE D'UNE LIGNE DANS LA FENETRE * 


OO RRR ARR ROR ARR ROROR RAR RERO RROR OK ARR RE RON 


PROCEDURE aff_ligne(lignef$) 
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LOCAL px%,py% 


IF ligne courante#>19 
@scroll_ fenetre 
ligne courante#=19 
ENDIF 
px#=196 
py*=(ligne courante%-1)*9+23-1 
TEXT px%,py%,ligne$ 
RETURN 


D RH AR RU RO RO RER ER OR ARR OR ARR KR 
‘ * AFFICHAGE D'UN MESSAGE DANS LA FENETRE * 
V1 OKKKKKKRRRRERKRRRERERERRRÉÉREERERÉRARARRRERRAR 
PROCEDURE aff fenetre(messagef) 
LOCAL 1% 
@format (message$, 14) 
FOR 1%=1 TO nb lignes 
INC ligne courante 
@aff ligne(lignes$(1#)) 
NEXT 1% 
RETURN 


lOXKKKKKKERRERERRRKEKERERERERÉERARÉRRE 
! X INITIALISATION FENETRE TEXTE * 
1 KKKKKKERARERARKREREREARKXERAARRRERE 
PROCEDURE init fenetre 

@cis fenetre 

ligne courante#=0 
RETURN 


LOHKKKKKEERRKRRERREREREREERERERARREARAREREEKARERRRRERAE 
! x COPIE FENETRE DE TEXTES DANS ECRAN DE TRAVAIL: * 
LR RAR R IRON DORA RO ARR EEE ARR OR ARR ROR OR REX 
PROCEDURE copie fenetre 
RC_COPY ecr visible#,194,12,118,178 
TO ecr travail#,194,12 
RETURN 


— 


KKAKKARKEEKRRERERERREAERAEHRRRR REA EE 


1 + * 
! % CHARGEMENT DE FICHIERS DISQUE * 
1 + * 


DORA ROM MR RR A ROM RAR RO RUE A RAR KR A AORAUK 
TR PR RE LASER E LE ES 


LU RRORORO RH HORREUR MR R ER RRR ROR RRROOR ARA AURA RUE 


* CHARGEMENT IMAGE DU PERSONNAGE SUR LA CARTE * 
LV OLKEKKKERRRERERRERRERKRRÉRAREREERENRARARERERARA AREA 
PROCEDURE charge perso(nom$) 

perso$=SPACES (134) 

OPEN “i",#1,nom$ 

BGET #1, VARPTR(perso$),134 

CLOSE #1 
RETURN 


DRAM ROROR ARR RE KR AURORRR RRR RAR ARR ER ARR A AARR 


! % CHARGEMENT DU FICHIER BINAIRE $ 
! # CONTENANT LES ELEMENTS GRAPHIQUES * 
LR RAR ARR NOR HRK ARR ROR AR ARMOR OR KR OR RORRRAUE 
PROCEDURE charge elements (fichier$) 
LOCAL n% 
LOCAL palettef 
palette$=SPACES$(32) 
OPEN "I",#1,fichier$ 
BGET #1,VARPTR(palette$) ,32 
VOID XBI0S(6;L:VARPTR(palette$)) 
nb_elements*=INP(#1) 
FOR n%=1 TO nb_elements* 
element$(n%)=SPACE$ (134) 
BGET #1, VARPTR(element$(n%)) , 134 
NEXT n% 
CLOSE #1 
RETURN 


LOKKKKKKEEKERERKERKAEEERAERARAE AE RRARARE 


! *  CHARGER CARTE À PARTIR DU DISQUE * 
LOXKEKELKEEREAKRAREKERAERKARRERKRERRREREAX 
PROCEDURE charger carte(nom$) 
LOCAL entete$ k 
LOCAL 1%,c% 
OPEN "“I",#1,nomÿ 
entete$=SPACES (19) 
BGET #1, VARPTR(entete$) ,19 
nb_colonnes#=INP(#1) 
nb_lignes%=INP(#1) 
FOR c#=1 TO nb colonnes* 
FOR 1%=1 TO nb lignes* 
carte|(c%,1%)=INP(#1) 
NEXT 1% 
NEXT c% 
CLOSE #1 
RETURN 


| OXKKKKAXERREKAKERKREREREREARE RARE 
! * OPTION "QUITTER LE PRG! * 
LT OXKKKKKAKKEKRKRERKEKRERRERERAREARX 
1 OKKKKKKKEKRREREREERERRRERRERLERARERAR EEE 
! x sortie#=0 ==> continuer programme * 
! * sortie#=1 ==> quitter programme " 
LOKKKKKKRKAKERERAERERREERERNEREREAREARARE 
PROCEDURE quitter programme 

LOCAL m$,t$,b% 

t 


sortie#=0 


m$="VOULEZ-VOUS VRAIMENT [QUITTER CE PRG ?" 


choix$="OUT | NON! 
SHOWM 
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ALERT 0,m$,2,choix$, b% 
HIDEM 
IF b#=1 
sortie=1 , 
ENDIF 
RETURN 


———————————_—————————— 


LOKAKKKARARERERRERAARRREEARARER EEK 


Lx * 
! * GESTIONNAIRE DE RENCONTRES * 
LU %x * 


D ORRRKKARERERERKAERRARERERARERKRER 
LU OKKKKEAKERARÉRARÉERRRÉRARRRERÉEARANANRARÉAERÉR AR 
! *  INITIALISATION DES TABLES DE RENCONTRES * 
LOKAKKRERARRRKRRARERERRREREREERERAARERKRREAERARK 
PROCEDURE init rencontres 
LOCAL table#,rencontre* 
LOCAL prob%,creature* + 
LOCAL valeur 
L 
ARRAYFILL table rencontre%() ,-1 
table=1 
rencontre%=1 
RESTORE def_rencontres 
DO 
DO 
READ valeur“ 
EXIT IF valeur%=-1 
EXIT IF valeur%=-2 
creature%=valeur“ 
READ prob 
table rencontre#(table#,rencontre*,1)=prob* 
table rencontre*(table%,rencontre*,2)=creature“ 
INC rencontre“ 
LOOP 
EXIT IF valeur%=-1 
INC table“ 
rencontre*=1 
LOOP 
RETURN 


LOAKKKKKKERARRRRERARERARER 


! x TEST DE PROBABILITE * 


LOXAXKAKKRARKARAREARRRREKREAE 


OO RRROR HONOR RU ROA RO RR RAR RER ARR HER RAR AA RO RORRN 


1 x Cette fonction sert à tester si un événement " 
! x de probabilité prob% s'est produit. La routine * 
! * renvoie TRUE si l'événement s'est produit et * 
! x FALSE dans le cas contraire. fe 
DL OKKKKKKARRREEAERRRRÉRRRÉRARAREREERERRERRRRRRRRREAIRARAE 
FUNCTION tst probabilite(prob#) 

LOCAL rep* 

1: 


IF RANDOM(100)+1<=prob% 
rep%=TRUE 
ELSE 


rep#=FALSE 
ENDIF 
RETURN rep% 


ENDFUNC 


SERRE RAR HIER RON ROUE AR AO ERA 
* TIRAGE D'UNE RENCONTRE * 
HR RAACR HEIN ER ARR RER RE HER 


ARNO UE ROAD ARR Re AA ARE DR D A AA RO ARR ROCK 


* Cette routine détermine aléatoirement un numéro de 


* créature à partir de la table de rencontre tables. 
HORREUR HORREUR HE He A Re AR A RE ARR AURA 


FUNCTION tirage rencontre(table#) 


LOCAL tirage“,rencontre* 
LOCAL prob%,creature* 
LOCAL total_prob# 


‘tirage%=RANDOM(100)+1 


creature%=—1 

total. prob%=0 

FOR rencontre%=1 TO 30 
prob#=table rencontre*(table*,rencontre#, 1) 
IF prob%<>-1 

ADD total _prob#,prob% . 

IF (tirage#<=total_ prob) ; 
creature%=table rencontre*(table#, rencontre%,2) 
rencontre%=30 ! Sortie de la boucle 

ENDIF 

ENDIF 

NEXT rencontre 

IF creature%=-1 
PRINT “ERREUR DE FORMAT DANS LES RENCONTRES" 
PRINT "NUMERO TABLE ";table* 

ENDIF 

RETURN creature* 


ENDFUNC 





KHNOR HRK RORORORORU AURA RO AAURR ARR KR RARE 


k * 
* GESTIONNAIRE DES DECOUVERTES * 
* * 


CELILLLILLILLSISÉS LEE TESTS SET SES EE) 
RHOROROROR RHONE EE CROIRE CR RO RE RER A ARR RH AA RUAR 


# INITIALISATION DES TABLES DE DECOUVERTES * 


FTTTLTILITIII LILI LLILLIIILISIS SOLDES LISE ESS SES ES) 


PROCEDURE init tables decouvertes 


LOCAL table, decouverte” 

LOCAL prob%,tresor 

LOCAL info 

ARRAYFILL table decouverte#(),-1 
table%=1 

decouverte#=1 

RESTORE tables decouvertes 
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DO 
DO 
READ info 
EXIT IF info%=-1 
EXIT IF info#%=-2 
tresor%=info* 
READ prob 
table decouverte%(table“,decouverte#, 1)=prob# 
table decouverte%(table“,decouverte*,2)=tresor* 
INC decouverte* 
LOOP 
EXIT IF info%=-1 
INC table“ 
decouverte#=1 
LOOP 


RETURN 


RER HIER EICHER RIRE RE 
*  TIRAGE D'UNE DECOUVERTE * 
SERRE HRH HEAR HER HU HR 


PATTTITETSITILIILISSILSILISIS IIS IS SES ST SES SSSR] 


*Cette routine détermine aléatoirement un numéro de* 


* trésor à partir de la table de découverte table*.* 
RKRHERERKREREEREEERRRRRRREERKREERERRRRERRRRERRRRRARAERHARR 


FUNCTION tirage decouverte(table#) 


LOCAL tirage%,decouverte* 
LOCAL prob#,tresor* 

LOCAL total _prob* 
tirage#=RANDOM(100)+1 
tresor%=-1 

total_prob#=0 


‘ FOR decouverte#=1 TO 30 


prob%=table decouverte*(table“, decouverte, 1) 
IF prob%<>-1 
ADD total _prob%,prob% 
IF (tirage#<=total prob%) 
tresor#=table decouverte%(table“, decouverte, 2) 
decouverte#=30 ! Sortie de la boucle 
ENDIF 
ENDIF 
NEXT decouverte 
IF tresor*%=-1 
PRINT "ERREUR DE FORMAT DANS LES DECOUVERTES" 
PRINT "NUMERO TABLE ";table* 
ENDIF 
RETURN tresor* 


ENDFUNC 





ROROROR eee ER OR RER OR RERO RO RO RAR RURARUX 


*x Ÿ *« 
*  ROUTINES D'AFFICHAGE DE LA CARTE VISIBLE * 
*x *x 


KEKKEKRRRÉEREREREERERRRRERÉEERERERRRARÉARÉ ARR 


1 OKKAKAKKKREAKRAAAKKEERREX 


! * AFFICHAGE DE LA * 
! * CARTE VISIBLE  * 
L'OKXKAKKKKKAKEKKKKRKKRERRX 
PROCEDURE aff carte 

LOCAL 1%,c#% 

LOCAL ligne“ 

LOCAL colonne 

LOCAL num 

LOCAL posx% 

LOCAL posy* 


posy#=ycartes 
ligne*=ligne carte 
FOR 1%=1 TO 11 
posx#=xcarte# 
colonne#=colonne cartes 
FOR c#=1 TO 11 
num#=carte| (colonne%, ligne%) 
PUT posx#,posy#,element$ (num) 
INC colonne“ 
ADD posx#, 16 
NEXT c% 
INC ligne 
ADD posy#,16 


NEXT 1% 
PUT xcarte%+80,ycarte*+80,perso$,1 ! Aff image perso 
RETURN £ 


1 
1 OXKKKKKKKERÉRARRREREREKKRRERÉARARRKRKREX 


! * GESTION PERMUTATION DES ECRANS * 


LV OXKKKKKAAEKERERERERERARARERERAKEREREREX 


PROCEDURE preparation ecr travail 


IF etat#=1 
ecr visible#=adrl# 
ecr _travail#=adr2% 
ELSE 
ecr visible=adr2* 
ecr travail#=adrls 
ENDIF 
etat#=-etat* 
@set_ecr log(ecr travail) 


RETURN 


: 
1 OKKKKKKKKKÉKRERERARARKRRRARARERERE 


‘ x  VISUALISATION DE LA CARTE * 


LOKKKKKKKERERARANERRARLRRAXAERRRK 


PROCEDURE visualisation ecr travail 


@set_ecr phys(ecr travail%) 
VSYNC 


RETURN 


} 
L'OXKKKKKKKKAKREKREKRERARERARERERERK 


! *  DEPLACEMENT VERS LE HAUT * 


LOKKKKKARKKKKKKERKRARERERKRARARE 


PROCEDURE aller haut 


LOCAL ecr1%,x1%,y1#% 
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LOCAL ecr2%,x2%,y2% \ nx=carte| (colonne#, ligne carte#+10) 


LOCAL px%,py# PUT px%,py%,element$(n%) 
LOCAL c%,colonne* INC colonne“ 
LOCAL n% , ADD px%,16 
LOCAL old element# NEXT c% 
» PUT xcarte%+80,ycarte#+80,perso$,1 ! Aff image perso 
old element#=carte| (colonne carte%+5,ligne carte#+5) @copie fenetre 
DEC ligne carte“ @visualisation ecr travail 
@preparation ecr travail RETURN 
ecrl#=ecr visibles : 
x1%=xcartez LOKAKARAKKKRRRRERKARRKEARERRREERRRAERE 
yl%=ycartes ! x DEPLACEMENT VERS LA GAUCHE * 
ecr2%=ecr travai 1% , LV OXKRERKRRERKAREREERRERRRRERRRRAREX 
x?2#=xcartes PROCEDURE aller gauche 
y2%=ycarte#+16 LOCAL ecr1%,x1%,y1#% 
RC COPY ecr1%,x1%,y1#,176,160 TO ecr2%,Xx2%,V2% LOCAL ecr2%,x2%,y2% 
PUT xcarte%+80,ycarte#+96,element$(old element*) LOCAL px%,py# 
colonne#=colonne carte“ LOCAL 1%,1ignex 
px#=xcartes > LOCAL n% 8 
py#=ycarte* LOCAL old element% 
FOR c%=1 TO 11 : 
n#=carte| (colonne, ligne carte“) old_element*=carte| (colonne carte#+5, ligne carte*+5) 
PUT px%,py%,element$(n%) DEC colonne carte“ 
INC colonne @preparation ecr travail 
ADD px%,16 ecrl#=ecr visibles 
NEXT c% x1#%=xcartes 
PUT xcarte%+80,ycarte#%+80,perso$,1 ! Aff image perso yl%=ycartes 
@copie fenetre ecr2%=ecr travail# 
@visualisation ecr travail x2#%=xcartes+16 Û 
RETURN ye=ycartes 
: RC COPY ecr1%,x1%,y1#,160,176 TO ecr2%,x2%,V2% 
ISA ARNA RER RARE EORICEREREERNRET PUT xcarte%+96,ycarte#+80,element$ (old element*) 
! #  DEPLACEMENT VERS LE BAS * ligne*=ligne cartes 
L HAKRAKRAKKKEKKEREREREARARERAREXE px*=xcartes 
PROCEDURE aller bas py#=ycarte* 
LOCAL ecr1%,x1%,y1% FOR 1%=1 TO 11 
LOCAL ecr2%,x2%,y2% n#=carte| (colonne carte#, ligne%) 
LOCAL px%,py# PUT px%,py%,element$ (n%) 
LOCAL c%,colonne* INC ligne* 
LOCAL n% é ADD py#, 16 
LOCAL old element î NEXT 1% 
! PUT xcarte%+80,ycarte%+80,perso$,1 ! Aff image perso 
old element#=carte| (colonne carte#t5,ligne carte%+5) @copie fenetre 
INC ligne _carte* @visualisation ecr travail 
@preparation ecr travail RETURN 
ecrl#=ecr visibles \ 
x1%=xcartes ; VO XKKKKKKERRKERRRERRKREREEEARRRÉERXE 
yl%=ycarte#+16 ! * DEPLACEMENT VERS LA DROITE * 
ecr?2%=ecr travai 1% l KKKKKEXERERRKRKARÉRERERRERENÉRRAX 
x2#=xcarte* PROCEDURE aller droite 
y2%=ycarte LOCAL ecr1%,x1%,y1% 
RC_COPY ecr1%,x1%,y1#,176,160 TO ecr2%,x2%,Y2% LOCAL ecr2%,x2%,y2% 
PUT xcarte%+80,ycarte#+64,element$(o1d_element*) LOCAL px%,py# 
colonne“=colonne cartes LOCAL 1%, ligne* 
px*=xcartes LOCAL n% 
py*=ycarte#+160 LOCAL old element 


FOR c#=1 TO 11 ] 
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old element#=carte| (colonne carte%+5, ligne carte#+5) 
INC colonne carte” 
@preparation ecr_ travail 
ecrl%=ecr visibles 
x1%=xcarte#+16 
yl#=ycarte* 
ecr2#%=ecr travail# 
x2#%=xcarte 
y2%=ycartes 
RC COPY ecr1%,x1%,y1#,160,176 TO ecr2%,x2%,y2% 
PUT xcarte%+64,ycarte%t80,element$ (old element*) 
ligne#=ligne cartes 
pxé=xcarte#+160 
py#=ycarte 
FOR 1%=1 TO 11 
n#=carte| (colonne carte%+10,1ignex) 
PUT px%,py%,element$ (n%) 
INC ligne% 
ADD py%,16 
NEXT 1% 
PUT xcarte%+80,ycarte%+80,perso$,1 ! Aff image perso 
@copie fenetre 
@visualisation ecr travail 
RETURN 


1 HKKKKKKAAXKERKEREERKEREEEEXKARERARAÉERARERRERREREE 


1 *x * 
! X FONCTIONS DE GESTION DES EVENEMENTS DU JEU * 
EX * 


lOKKKKEKKKKKKREEKEAKRÉRRRRARERAERÉRAXERRERERERAERARXE 
L 'XKKKKKKKRKRRAREAKEAARARRKARARAREREKRAERARX KE 
! * LE JOUEUR SE DEPLACE SUR LA PLAINE * 
LOKKKKEKERKKRÉARRARARAERAKARERERARRERAERARRXE 
PROCEDURE rencontre plaine 

LOCAL creatures 

LOCAL message$ 


IF @tst probabilite(10) 
creature*=@tirage rencontre(1) 
message$="RENCONTRE : "+creature$(creatures) 
Qaff_fenetre(message$) 
ENDIF 
RETURN 


1 
1 KKXKKAKKKKKEKRAKRRERERARARARERARE RARE AUX 


‘ # LE JOUEUR SE DEPLACE SUR LA FORET * 
LOKAKKKKKKKRXERKLEKREREERERRERAERRERARAERERAE 
PROCEDURE rencontre foret 
LOCAL creature* 
LOCAL message$ 
IF @tst_probabilite(15) 
creature%=@tirage rencontre(2) 
message$="RENCONTRE : "+creature$ (creature%) 
@aff fenetre(message$) 
ENDIF 


RETURN 


D RRRRRR ARR RIRE AOR IR ANR AIR IR 
! # LE JOUEUR EXPLORE DES RUINES * 
D RORRI IR RR AH AORRORERRORER RNA RORRORACRE A 
RAR ANR URI ARR ARNO CRIE TA 


" # Il peut rencontrer des créatures, * 


ou trouver divers objets anciens. * 
LOKKKRARERKERKRERRERERERARAEEEERERÉEARANE 


Lx 


PROCEDURE rencontre ruines 
LOCAL creature% 
LOCAL decouverte 
LOCAL m$ 
IF @tst_probabilite(10) 
creature*-=@tirage rencontre(3) 
m$="RENCONTRE : "+creature$(creature#) 
Qaff_fenetre(m$) 
ENDIF 
IF @tst_probabilite(5) 
decouverte%=@tirage decouverte(1) 
m$="DECOUVERTE :"“+decouverte$ (decouverte) 
@aff_fenetre(m$) 
ENDIF 
RETURN 


1 
| KAKKKKKAARKARARERERRERARAAARAAERAEERE 


! #  VISUALISATION DU DEPLACEMENT  * 
!" * SUR LA CARTE AFFICHEE A:L'ECRAN  * 
1 OKKKKKKEKKKKEKEKRRKRAERARERARARKARERERERE 
PROCEDURE exec deplacement(direction#) 
SELECT directions 
CASE 1 
Galler haut 
CASE 2 
@aller bas 
CASE 3 
@aller droite 
CASE 4 
Galler gauche 
ENDSELECT 
RETURN 


t 

lOKAKKKAKERKRRKERKEEREARERKRREX 

! * ROUTINE DE DEPLACEMENT * . 

1 KAKKKKKAKAKKKARERKERARRARREX 

PROCEDURE gestion deplacement (direction#) 
LOCAL c%,1%,n% 

SELECT directions 

CASE 1 
c#=colonne carte%+5 
1#=ligne carte*t4 

CASE 2 
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c#=colonne carte#+5 
1#%=ligne carte#+6 
CASE 3 
c#=colonne carte%+6 
1#=ligne carte#+5 
CASE 4 
c#=colonne carte#t4 
1%=ligne carte%+5 
ENDSELECT 
1 
n%=def ev#(carte|(c%,1%)) 
L 
LOKRKKAKKRERRRARKRÉER ERA AR AA AA HR RH RAR RAAAE 


! * EXECUTION DES EVENEMENTS DE DEPLACEMENT * 


L'KXKKKKKKKKRRKRAAKENEAKERARERERRRERKARERARKRRAKEKX 


SELECT n% 


CASE I 
@exec deplacement (directions) 
CASE 2 


@exec_ deplacement (directions) 
@rencontre plaine 

CASE 3 
@exec deplacement (direction) 
@rencontre foret 

CASE 4 
@exec_deplacement(directions) 
Grencontre ruines 

ENDSELECT 

RETURN 


' 
1 RRRRROR RARE RÉ RO RRUR RAR RL RE 
! #  EXECUTION DES FONCTIONS * 
LVL O'HAKKKEKKKKKKKKKRARKRREREREREREEX 
PROCEDURE exec fonction(f#) 
SELECT f% 
CASE 1,2,3,4 
@gestion deplacement (f#%) 
CASE 5 
@quitter programme 
ENDSELECT 
RETURN 


1 RE RE RS 
! *  ATTENTE EVENEMENTS CLAVIER * 
LL 'KHKKKKAKEKRARARKERERKERREEERRAREX 
! 1 : aller haut 
: Aller bas 
: Aller droite 
: Aller gauche 
" 5 : Quitter le programme 
FUNCTION att ev 

LOCAL c$,num ev# 


= © © 


num_ev#=0 
@vider clavier 
DO 

c$=INKEY$ 


IF c$<>"" 
IF c$=CHR$ (27) 
num ev#=5 
ENDIF 
IF LEN(c$)=2 
t%=ASC(MID$(c$,2,1)) 
IF t#=72 
num ev#=1 
ENDIF 
IF t#%=80 
num ev#=2 
ENDIF 
IF t#%=77 
num_ev#=3 
ENDIF . 
IF t#=75 
num _ev#=4 
ENDIF 
ENDIF 
ENDIF 
EXIT IF num ev#<>0 
LOOP 
RETURN num ev# 
ENDFUNC 


1 
L 'KXKKKKKKEXKRKRNAERRARARAAAAAARARRE 
! * GESTION DES ORDRES DU JOUEUR * 
LOKRKKKKKKKEKKRKERÉRRRRARRRAARARAREREX 
PROCEDURE gestion programme 
LOCAL ev# 
DO 
ev#=@att ev 
exec_fonction(ev#) 
EXIT IF sortie#=1 
LOOP 
RETURN 


1 OKXKAKKKAKAKRALERRRERRRARAREREARARÉERERERRAX 


! * LECTURE DES NUMEROS D'EVENEMENTS  * 
! * ASSOCIES AUX ELEMENTS DE LA CARTE * 
LL OXRAKAKKKAKEKARRAXARÉRARARRARAREREREREREX ER 
PROCEDURE init evenements 
LOCAL num, val 
1 
ARRAYFILL def_ev%(),0 
RESTORE def evenements 
DO 
READ num 
EXIT IF num=-1 
READ val 
def_ev%(num%)=val# 
LOOP 
RETURN 


LL OKKKKRAAKAAKARERKARERERRREARE EEE 


! * DEFINITION DES CREATURES * 
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LORKKKR RARE RRR ARMOR RAR KR AAA RRRR Raff carte 


PROCEDURE init _creatures , BMOVE XBIOS(2) ,adr2%,32000 
LOCAL num%,nom$ 1 


G etat%=1 
n#=0 gestion programme 
RESTORE def_creatures : 
DO SHOWM 
READ num RETURN 
EXIT IF num=-1 y 
READ nom$ 1 —————————————— 
creature$(num%)=nom$ k LOKKKKKKEKRKKARRRARERERERARARERERRREREX 
LOOP Es ‘2 
RETURN ! * DEFINITION DES DONNEES DU JEU * 
! 1 # 6 
L OXKAKKRKEKERRÉRERÉRRARRERRERÉRRÉEÉEÉRRAE UOKKKKKARERRÉRRARRARRKAXRERRERRRARÉARRAER 
1 x DEFINITION DES DECOUVERTES * D OKKKKRKERKRRKRARERARRERERKERRAEE 


1 'OAKXKKKKKKEKRKKRRRRKKARRRRKRRRERRERRRE 


PROCEDURE init decouvertes 
LOCAL num%,nom$ 


* DEFINITION DES EVENEMENTS * 


KKKKKEKKERKERERERAÉRÉRRARAHEAÉX 


* DATA element, evenement É 
* DATA -1 : fin evenements  * 





ñn%=0 LOKKREKKKKRKKREREERERRRARRRÉRERRRRA EE 
RESTORE def _decouvertes ! # Codages evenements : È 
DO ‘ * 0 : déplacement impossible * 
READ num ! * 1 : déplacement possible  * 
EXIT IF num%=-1 ! * 2 : Appel fonction 2 ï 
READ nom$ VE (déplacement plaine)  * 
decouverte$ (num%)=nom$ k ! x 3 : Appel fonction 3 ” 
LOOP NÉE (déplacement forét) & 
RETURN ! * 4 : Appel fonction 4 # 
: ++ (déplacement ruines)  * 
LOKKKKKKRAKEKRAAXKREREREERERAREX L'OKAKKAKKKKEKKEERERKARERÉRREARRREER 
! #* PROCEDURE PRINCIPALE * def evenements: 
L 'KAKKKKKKRRÉRAKEKRRRRRRARAÉE DATA 1,0 
PROCEDURE main DATA 2,0 
nb elements#=0 DATA 3,2 
ligne carte#=1 DATA 4,2 
colonne carte#=1 : DATA 5,0 
element _courant#=1 | DATA 6,0 
; DATA 7,0 
xcarte*=8 DATA 8,0 
| ycarte#=12 DATA 9,4 
' Qinit creatures DATA 10,0 
@charge perso("PERSO.BIN") DATA 11,3 
@charge elements ("ELEMENTS.BIN") DATA -1 
@charger carte("carte.car") : 
@init evenements LOKRAKKÉREKRARERRRERERRRARAREREA RE 
Ginit_ rencontres ! X DEFINITION DES CREATURES * 
Q@init decouvertes LOKKKKKKKKKKKAAKERARARKRRERREREANE 
@init tables decouvertes def_creatures: 
À DATA 1,"DES LOUPS" 
HIDEM DATA 2,"DES CHIENS SAUVAGES" 
GRAPHMODE 2 DATA 3,"UN OURS" 
DEFTEXT 0 DATA 4,"UN RENARD" 


à DATA 5, "SERPENT" 
@cls_ecran(1) ! 
@cadre(xcarte%-1,ycarte#-1,178,178,1,0) DATA 20,"DES VOLEURS" 
Qinit_fenetre DATA 21,"DES PAYSANS" 
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DATA 22,"UN COLPORTEUR" 

DATA 23,"DES BUCHERONS" 

DATA 24,"UNE CARAVANE" 

DATA 25,"DES PILLEURS DE TOMBE" + 
DATA 50,"DES ORCS" 

DATA 51,"DES GOBELINS" 

DATA 52,"UN ELFE NOIR" 

DATA 53,"UN NECROMAN" 

DATA 70,"UNE ARAIGNEE GEANTE" 
DATA 71,"UN SERPENT GEANT" 
DATA 100,"UN DEMON" 

DATA 101,"UN FANTOME" 

DATA 102,"UN ESPRIT DES BOIS" 
DATA 103,"UN ESPRIT DE L'EAU" 
DATA 104,"UN ESPRIT DE TERRE" 
DATA 105,"UN ESPRIT DE FEU" 
DATA 106,"UN ESPRIT DE MORT" 
DATA 107,"UN DRAGON NOIR" 
DATA 108,"UN DRAGON ROUGE" 
DATA 109,"UN DRAGON DES EAUX" 
DATA —1 


1 KKKKKKKKKXEEKEREEEREEEREREREREREAAAARARERXEX 


" # DEFINITION DES TABLES DE RENCONTRE  * 
LOKKKAKKKEKXEEKRERKRKKKRERRERAARRKARARERAAEREEXEEX 
DATA créature, probabilité rencontre * 
DATA —2 : passage table suivante Fe 
DATA —1 : fin des tables * 
REMARQUE : Le total des probabilités * 

* 


doit faire absolument 100%. 
LOKKKEKKKKKRAAKARAKRKKKKERERRERERKAKRERARARREXE 


* #4 #0 


def rencontres: 
1 'KKKKÉKKRRARAKARARARARAREX 


: *, TABLE 1 — PLAINE * 


D ORRRARERARA RIRE RAR ERRRR 


" * Paysans 2 DOS ST 
! #° Colporteur : 10% * 
" *  Voleurs +: 20% 0% 
!'#IKCAIENS 10% 
AANONES 210% 00% 
LOKAKKKKRKRAKARAREREAARKEE 
DATA 21,50 

DATA 22,10 

DATA 20,20 

DATA 2,10 

DATA 50,10 

DATA —2 


VO KXKKKKKKRARKRARAARARERE 


" * TABLE 2 — FORET * 


L'OKKHKKKARKKARARARARARNEX 


! *x Loups : 0 
MANIOUrS 1550 
! * Bucherons : 10% * 
HÉSS FORCES ASE NUE 


Lx Gobelins 31105 0* 
DONMESPANE % 
! * ‘dessbois 05 10% L* 
LOKKKRAAKAKERRRAKARERAE 
DATA 1,30 

DATA 3,15 

DATA 23,10 

DATA 50,25 . 

DATA 51,10 

DATA 102,10 

DATA —2 


1 OXKKKKKKAKERKKKRARRAARAREAERERAEK 


BE TABLE 3 — RUINES ke 
1 OKKKKKKKKERERRERAERERKARREREXEX 
"SERIDPES : 30% * 
! * Gobelins 20507 
! x Serpent : 20% * 
' * Araignée géante HUI0% 
" * Pilleurs de tombes : 10% * 
! # Fantome 105% 
! * Démon : 05% 

l KAKAKEKKAKXRERARAARAKKERERRARERX 
DATA 50,30 

DATA 51,20 

DATA 5,20 

DATA 70,10 

DATA 25,10 

DATA 101,5 

DATA 100,5 

DATA —1 


1 OKXAAKKKXKKKKRERRERRARÉARAEARERAAREEK 
 * DEFINITION DES DECOUVERTES * 
1 KÉAKEAKAKRKRREXKRARARARRRARER REA 
def_decouvertes: 

DATA 1,"UNE PIECE D'OR" 

DATA 2,"UNE PIECE D'ARGENT" 

DATA 3,"UNE PIECE DE CUIVRE" 

DATA 4,"DES PIECES D'OR" 

DATA 5,"DES PIECES D'ARGENT" 

DATA 6,"DES PIECES DE CUIVRE" 

1 


DATA 20,"UNE PIERRE PRECIEUSE" 
DATA 21,"DES PIERRES PRECIEUSES" 
DATA 50,"UNE VIEILLE EPEE" 

DATA 51,"UN COUTEAU" 

DATA 90,"UNE CHAUSSURE" 

DATA 91,"UNE POUPEE DE CHIFFONS" 
1 


DATA 100,"UNE ARME MAGIQUE" 
DATA —1 


LL OKAKAKKRKKREREREERERARALRRAREREERAARARARAARE RE 


! X DEFINITION TABLE DE TIRAGE DES TRESORS * 
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' RÉRELRRRERÉRERERRERERAÉEREERRARARERRRERKRAAE EE 


tables decouvertes: 
DO RRRRRRROROR RON RARE OR OR AAA 


ï‘ x TABLE 1 — RUINES * 
1 HARRRARRÉMA RIRE RE ARE 


1 KEKXKEKKRKRREERERRARERRARRERRRERKEREER 


! x Une piéce de cuivre SAJD ET 
1! # Des pièces de cuivre : 15% * 
! x Une piéce d'argent 15% * 
! * Des pièces d'argent 07% * 
! # Une pièce d'or 05% * 
! * Des pièces d'or 03% * 
! * Une pierre précieuse 03% * 
" x Des pierres précieuses : 02% * 
! x, Une épée : 06% * 
! * Un couteau OBS ES 
! # Une chaussure : 04% * 
‘ * Une poupée : 04% * 
! X Une arme magique AE TA 
VO KEKEKKRKKKKERRERXEHEEERERERERARARAREX 
DATA 3,30 

DATA 6,15 

DATA 2,15 

DATA 5,07 

DATA 1,05 

DATA 4,03 

DATA 20,03 

DATA 21,02 

DATA 50,06 

DATA 51,05 

DATA 90,04 

DATA 91,04 

DATA 100,01 

DATA -1 


TELECHARGEZ 
DES Le ame 
DES CENTAINES 


DE LOGICIELS 
SUR LE 


3615 ATARI 








ps 
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DE L'INITIATION 
A LA CRÉATION 
MUSICALE 


Vous avez un 1040 STE 
Vous êtes un fan de musique. 


Equipez-vous à prix réduit 


Le clavier BONTEMPI AZ 7500 
Dernier-né de la gamme BONTEMPI, il est de loin le plus performant. Il saura vous 
satisfaire grâce à ses multiples qualités: Clavier MIDI «splitable» + 61 grandes touches + 32 
sons «PCM Digita + 24 rythmes PCM technologie numérique + 7 voies 
d'accompagnement, polyphonique (12 notes) » 4 effets sonores intégrés. Il s’harmonise 
idéalement avec le 1040 STE en exploitant toutes ses performances sur le plan musical. Le 
BONTEMP! AZ 7500 est l'outil qui vous permet de metire en applicafion vos progrès 


MUSICAUX. 


Le logiciel BIG BOSS Piano 


Dernier-né de la société RYTHM'N SOFT, BIG BOSS Piano, est le «nec plus ultra» des 
logiciels musicaux: Cours de piano classique et moderne » davier guide + défilement des 
partitions en temps réel + impression des parïifions + quanfisaïion + c'est aussi un 
séquenceur de 25 pistes permettant le chargement simultané de 10 morceaux. Le logiciel 
BIG BOSS Piano est une méthode éducative simple (assistance permanente) et rapide (10 
leçons progressives) pour que le solfège ne soit plus une contrainte insurmontable. Laissez 
libre cours à votre inspiration et réveillez le musicien qui sommeille en vous. 





Pour commander, remplissez lisiblement ce bon (ou une copie) et envoyez-le. 
accompagné du règlement à : 
ARTIPRESSE - 79, avenue Louis Roche - 92230 Gennevilliers 
[1 Je commande le clavier BONTEMPI AZ 7500 + le logiciel BIG BOSS Piano 
au prix exeptionnel de 1 990 F + frais d'expédition. Ci-joint un chèque de 
2100 F en règlement. 


Nom (ER TE FO SO I UV 
Prénom EL AR GE RS 
Adresse RL AR Se 2 20 © 2 re ES SD RE ER 


Code postal 11 1 1 1 1 1 1 1 LOL D 1 1 1 | 


Ville ER IL RO A PE EE 


Dans la limite des stocks disponibles, 











JEU DE ROLE EN GFA BASIC 


PROGRAMMATION 
JEU DE ROLE (IV 





Moi vois, moi tue 


Nous vous présentons maintenant un programme permettant 
de simuler le déroulement d'un combat entre un personnage 
et une créature quelconque. 


Combat, échange de coups 


Le résultat où l'échec d’une attaque doit être calculé en fonction des 
caractéristiques des adversaires. Pour écrire un programme perfor- 
mant, il faut analyser tout ce qui se passe pendant un combat et défi- 
mir lés caractéristiques des combattants nécessaires à une bonne si- 
mulation. 

Cet article vous propose deux systèmes de combat. Le premier est 
un système simple, fourni à titre d’exemple. Le second est un méca- 
nisme de combat plus complexe et plus réaliste. Il est accompagné 
d’une bibliothèque d'objets que vous pourrez utiliser dans vos 
propres programmes (armes, protections et créatures). 


Système de combat de base 


Le combat s'arrête lorsque l’un des deux adversaires est mort. Les 
combattants sont définis par une capacité de combat, une capacité de 
coups et un certain nombre de points de vie. 
La capacité de combat est le pourcentage de chance que possède une 
créature de toucher son adversaire. Un combattant de bas niveau 
peut avoir un pourcentage faible (entre 5% et 15%) alors qu’un com- 
battant de haut niveau ou une créature très puissante peuvent avoir 
un pourcentage très élevé (entre 70% et 90%). Pour savoir si une 
créaturé touche son ennemi, il faut tirer un nombre aléatoire com- 
pris entre 1 ét 100 (avec l'instruction RANDOM). Si ce chiffre est 
inférieur ou égal à la capacité de combat, l'attaque est réussie. 
La capacité de coups est le nombre de points de dégâts qu’une 
créature peut causer à une autre. Un éléphant fait nettement plus de 
dommages qu’un écureuil. 
Le nombre de points de vie représente la vigueur d’une créature et sa 
capacité à encaisser des coups. Les points de vie diminuent lorsque la 
créature reçoit des points de dommages à la suite d’une attaque. Si le 
nombre de points de vie tombe à O, la créature est morte. 
! vie perso* 
combat_perso% 
coups perso“ 
vie creature 


: points de vie Perso 

: capacité de combat Perso 
: capacité de coups Perso 
: Points de vie Créature 


! combat creature* : Capacité de combat Créature 
" coups creature# : Capacité de coups Créature 


DO 


L'AKAKKKKAREAKEARARAKKRRREERRAEX 


! # Perso attaque Créature * 

lOKKKRKKKAKKKKKKRRERRAREREXE 

IF RANDOM(100)<=combat perso“ 
SUB vie creature*,coups_ perso% 

ENDIF 

EXIT IF vie creature#<=0 


L OAKKKKKKAKKKKEKKKKRERAKRKERXRE 


! # Créature attaque Perso * 
L KAKKKKKKKKKKANEKEKREREREREEX 


IF RANDOM(100)<=combat creature* 
SUB vie perso%,coups creature# 


ENDIF 
EXIT IF vie perso%<=0 
LOOP 


L OKAKKKKKKKAKKKKRKRAAEAREREXERERKERE 
! * Affichage résultat du combat * 
L'KAKAKKKKKKKAKERARRARRRÉRARRARÉARAR AXE 
IF vie perso%<=0 

PRINT "PERSO est mort" 
ELSE 

PRINT "CREATURE est mort(e)" 
ENDIF 


Système de combat plus évolué 


Le système de combat de base est simple à mettre en oeuvre, mais 
peu performant. Nous vous présentons maintenant un système de 
combat sophistiqué qui permet de réaliser des combats plus réalistes. 
Les créatures sont définies par les caractéristiques suivantes: Force, 
Points de vie, Capacité de combat, Nombre d'attaques par round de 
combat, Compétence de défense, Arme et Protection. 
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Les caractéristiques Points de vie et Capacité de combat ont la même 
signification que dans le système de combat de base. 

Le Nombre d'attaques est le nombre de fois qu’un combattant peut 
attaquer dans le laps de temps d’un round de combat. Une créature 
faible ne peut attaquer qu'une fois alors qu’une créature très puissan- 
te peut attaquer de nombreuses fois par tour. Cela dépend de l’ent- 
raînement et de la vitesse de réaction d’un combattant, voire même 
de sa structure physique (une pieuvre avec plusieurs bras peut exécu- 
ter plusieurs attaques en même temps). 

La Capacité de défense représente la possibilité d'éviter une attaque. 
Cela peut être dû à une grande agilité, à une petite taille ou à une 
structure physique particulière (une créature faite de brume qui de- 
vient solide uniquement au moment de frapper est très difficile à 
toucher). 

Cela peut aussi être le résultat d’un entraînement spécifique : un 
combattant ayant appris à esquiver ou à parer une attaque peut avoir 
une bonne capacité de défense. 

La Capacité de coups du système de base est remplacée par les ca- 
ractéristiques Force et Arme. Le programme calcule les points de 
dommages en tenant compte du type d’arme utilisé er de la force de 
la créature. 

La caractéristique Protection correspond à une éventuelle protection 
corporelle (vêtement solide, armure, écailles, peau épaisse, etc.) Cette 
protection diminue les dommages reçus en combat. Elle peut même 
les annuler totalement dans certains cas. 


Déroulement d'un combat 


Le combat est divisé en rounds de combat. Pendant un round de 
combat, les deux combattants frappent l’un après l’autre jusqu’à 
épuisement de leur nombre d'attaques. Lorsque l’un des adversaires 
est touché, le programme calcule le nombre de points de dégâts en 
tenant compte de la force et de l’arme de l'attaquant, ainsi que de la 
protection portée par la cible. 

Le pourcentage de toucher une cible est calculé en prenant la capa- 
cité de combat de l'attaquant et en soustrayant la capacité de défense 
de la cible. 

Les dégâts sont retirés aux points de vie du combattant touché. Le 
combat cesse lorsque l’un des deux adversaires est tué, c'est-à-dire 
lorsque son nombre de points de vie est égal ou inférieur à 0. 


Conclusion d’un combat 


À la fin d’un combat, le programme affiche le résultat. Si le person- 
nage a gagné, il reçoit le trésor éventuellement possédé par la créatu- 
re et des points d'expérience. 


Les points d'expérience 


Un personnage qui vit de nombreuses aventures acquiert de 
l'expérience et augmente ses compétences. Pour simuler cela, un per- 
sonnage victorieux reçoit un certain nombre de points d’expérience. 
Lorsque son total de points dépasse une certaine limite, ses compé- 
tences augmentent. Le nombre de points reçu dépend de la créature. 
Vaincre un lapin rapporte peu d'expérience, alors que vaincre un dra- 
gon rapporte énormément de points, à condition que le personnage 
survive. 


Programmation du système de combat 


La première chose à faire avant d'écrire le programme est d’étudier la 
structure des objets stockés en mémoire et de décider de la méthode * 
utilisée pour définir ces objets. Ces derniers sont: les armes, les 
moyens de protection, les trésors, les créatures et le personnage. 

Il est très difficile de déterminer les valeurs numériques définissant 
un objet. La tâche est simplifiée si l’on considère qu’un homme 
moyen possède une base de 10 à toute ces caractéristiques (Force de 
10, Intelligence de 10, Vitesse de réaction de 10, 10 Points de vie, 
etc.) Il faut ensuite calculer toutes les données du jeu en tenant 
compte de cette base. Par exemple, un chat est nettement moins fort 
qu’un homme, mais plus qu’un lapin. On donnera 1 de force au la- 
pin et 3 de force au chat. Par contre, un lion est plus fort qu’un 
homme. On peut lui donner une force de 14: 


Définition des armes 


Les armes sont des objets qui servent à causer des dégâts physiques 
sur une cible quelconque (un être vivant le plus souvent). Les dom- 
mages causés dans un combat comportent un élément aléatoire. Une 
épée peut tout aussi bien provoquer une blessure mineure qu’une 
blessure grave en frappant un organe vital. Pour simuler cela, il faut 
faire la distinction entre les dommages constants et les dommages va- 
raibles. 

Une arme est définie par un nom, un dommage constant et un dom- 
mage variable. Par exemple, une épée cause 2 points de dommage 
constant et 3 points de dommage variable. Un coup d'épée peut 
donc causer entre 2 (2+1) et 5 (2+3) points de dommage. Cela don- 
ne une moyenne de 4 points de dommage. La valeur des points de 
dommage a été définie en tenant compte qu’un homme moyen 
possède 10 points de vie. 

Les noms des armes sont stockés dans le tableau nom arme$ (n%). 
Les dommages constants sont mémorisés dans le tableau def_ar- 
me%(n%, 1) et les variables dans le tableau def _arme%(n%,2). 


DIM nom arme$ (100) 

DIM def_arme*(100,2) 

! def arme%(n,1) = dégât constant arme n 
‘ def_arme#(n,2) = dégât variable arme n 


La définition des armes est faite dans des lignes de DATA. Elles sont 
définies sous la forme numéro, "nom", dommage constant, dom- 
mage variable. La donnée numéro est le numéro de référence de 
l'arme. Par exemple, le nom de l'arme 12 est stocké dans le tableau 
nom arme$ (12), le dommage constant dans def arme#(12,1) et le 
dommage variable dans def_arme*(12,2). 


1 OXKKKAKRAKKEREREAKRAAKRERARERE 


" % DEFINITION DES ARMES * 
LOKKAKKKKEKKKRKKRRRAEKRKREKREERERE 

‘DATA numéro, "nom" , dommage constant, dommage variable 
armes data: 

DATA 1,'"GRIFFES",2,2 

DATA 2,"CROCS",2,3 

DATA 3,'MORSURES EMPOISONNES",1,5 

DATA 3,"TENTACULES",1,4 
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DATA 4,"SOUFFLE DE FEU",30,40 


DATA 10,"COUTEAU",0,2 

DATA 11,"EPEE",2,3 , 
DATA 12,"EPEE LONGUE",2,4 

DATA 13,"MASSE",2,3 

DATA 14,"HACHE",2,2 

DATA 15,"HACHE DE GUERRE" ,2,4 

DATA 16,"FLEAU",3,3 

DATA 17,"LANCE",1,4 

DATA 18,"CIMETERE",2,4 


DATA -1 


Ces lignes contiennent quelques exemples d'armes classiques dans 
un environnement médiéval-fantastique. Les premières sont des ar- 
mes naturelles utilisées par diverses créatures. Les suivantes sont des 
armes manufacturées utilisées par des êtres intelligents comme les 
humains et les créatures plus où moins exotiques habitant les univers 
fantastiques (orques, elfes, nains, gobelins, etc.) 

La procédure @init armes lit les informations stockées dans les 
lignes de DATA et les accumule dans les tableaux nom arme$() et 
def_arme#(). Elle doit être appelée en début de programme. 


PROCEDURE init armes 
LOCAL nom$ 
LOCAL degat constant 
LOCAL degat variables 
LOCAL n% 
RESTORE armes data 
ARRAYFILL def_arme%(),0 
DO 
READ n% 
EXIT IF n%=-1 
READ nom$ 
READ degat constants 
READ degat_ variable 
nom_arme$ (n%)=nom$ 
def arme%(n%,1)=degat constant* 
def arme%(n%,2)=degat variable# 
LOOP 
RETURN 


La procédure @dommage arme(num arme*) calcule le dommage cau- 
sé par l’arme num arme%. Les dommages variables sont calculés par 
la formule RANDOM(prob_degat%+1). Pourquoi cette formule? Parce 
que RANDOM(n) fournit un nombre aléatoire compris entre O et n-1. 
Pour obtenir un nombre aléatoire compris entre O et n, il faut utili- 
ser la formule RANDOM(n+1), 


1 'HAKAKKKRKAKRAREERRRERARERERERRRARARERE 


! # CALCUL DOMMAGE ARME num arme * 
1 KKKKKKKEKRERAKREERKRERRAREERER ER RANK 
FUNCTION dommage arme(num arme#) 
LOCAL degat_ constant 
.LOCAL prob degat* 


LOCAL degat variable 

l 

degat_ constant*=def arme#(num arme“, 1) 

prob degat*=def_arme%(num_arme“,2) 

degat variable*=RANDOM(prob_ degat*+1) 

RETURN degat constant+degat variable 
ENDFUNC 


Les protections 


Les protections sont des vêtements ou des armures. portés par les 
créatures du jeu. Elles assurent une fonction défensive, En terme de 
jeu, elles diminuent les dommages reçus par leurs utilisateurs. 

Une protection est définie par un nom et une valeur de protection. 
Pour simplifier la programmation, la valeur de protection est cons- 
tante. Toutefois, vous pouvez modifier le programme pour obtenir 
une protection variable. 


DIM nom protection$ (100) 

DIM def_protectionx(100) 

! def protection$(n*) = nom protection n% 

! def protection#(n%) = valeur protection n% 


Les protections sont définies dans des lignes de DATA. La liste suivan- 
te comprend de nombreux exemples de protection. La valeur -1 est 
l'indicateur de fin de données. ; 


LL OAKAKKAKAKKAKKRKEREKERKEREERRARARAEX 


" * DEFINITION DES PROTECTIONS * 
L'OXKKKKKKERRERERERRRARRRAARARRAREXE 
protections data: 

DATA 1, "FOURRURE ",1 

DATA 2,"FOURRURE EPAISSE",2 

DATA 3,"ECAILLES",2 

DATA 4,"PLAQUES D'OS",4 

DATA 5,"PEAU DE DRAGON",50 

DATA 6,"PEAU DE DEMON",10 

1 

DATA 20,"HABITS DE MENDIANT",0 
DATA 21,"HABITS DE COLPORTEUR",0 
DATA 22," VETEMENTS ORDINAIRE" ,0 
DATA 23,"VETEMENTS DE CUIR",1 
DATA 24,"ROBE DE PRETRE",0 

DATA 25,"HABITS DE NOBLE",0 

DATA 26,"VETEMENTS DE MARCHAND",0 
DATA 27,"ROBE MAGIQUE" ,4 

1 

DATA 40,"ARMURE DE CUIR",2 

DATA 41,"COTTE DE MAILLES",3 

DATA 42,"ARMURE DE PLAQUES",4 
DATA 43,"ARMURE DRACONIQUE",30 
DATA 44,"ARMURE CHAOTIQUE", 100 


DATA -1 


La procédure @init_ protections charge les données stockées en 
DATA dans les tableaux nom protection$() et def_protection#(). 
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PROCEDURE init protections 


LOCAL nom$ 
LOCAL protect* 
LOCAL n% 


RESTORE protections data 
ARRAYFILL def_protection#(),0 
DO 
READ n% 
EXIT IF n%=-1 
READ nomf 
READ protect 
nom_protection$ (n%)=nom$ 
def_protection#(n#%)=protect# 
LOOP 
RETURN 


La fonction @valeur protection(objet#) fournit le nombre de 
points de protection fournis par l’objet objet. 


1 OKXKKKXKKRKRARAEKAARAAAARAARKRERERERERERARX 


* 4 VALEUR DE PROTECTION D'UN OBJET * 
L KXKKKKRKARAKRARAAAKKKAKARERRRERERRÉARÉARE 
FUNCTION valeur protection(objet#) 

RETURN def_protection#(objet) 
ENDFUNC 


Au niveau technique, elle se contente de renvoyer la valeur de la va- 
riable def_protection*(objet#). Cela peut paraître stupide d’écri- 
re une fonction pour une opération aussi simple, mais cela permet 
d'obtenir une interface entre le programme et les données indépen- 
dantes de la technique utilisée pour stocker les données. Si vous mo- 
difiez la structure de stockage des protections, il suffira de modifier 
la fonction @valeur protection sans toucher au reste du program- 
me pour que tout continue de fonctionner normalement. 


Les trésors 


Certaines créatures intelligentes peuvent posséder des objets pré- 
cieux. Si le personnage les tue, il récupère ces objets. Dans un but de 
simplification, le programme ne gère que la description des trésors. 
Elles sont stockées dans le tableau nom tresor$(). 


DIM nom tresor$ (100) 


Les descriptions des trésors sont définies dans des lignes de DATA. 
Elles sont stockées sous la forme numéro trésor, "description". 
Le numéro -1 correspond à la fin de données. 


LOAKAKARRARAARARARRRREARARERERE 


! *  DEFINITIONS DES TRESORS * 


| KXKKAKKAKAAARAAAKARARKAAENAARRAX 


DATA type trésor, "description" 
! DATA -1 = fin des trésors 


tresorssdata: 


DATA 1,"QUELQUES PIECES DE CUIVRES" 
DATA 2,"QUELQUES PIECES D'OR" 

DATA 3,"DES CENTAINES DE PIECES D'OR" 
DATA 4,'UN TRESOR FABULEUX" : 
DATA -1 


La procédure @init_tresors initialise le tabléau nom tresor$() 
avec la description des trésors stockées en DATA. 


PROCEDURE init _tresors 
LOCAL n#,tresor$ 
: è 
RESTORE tresors data 
DO 
READ num 
EXIT IF num=-1 
READ tresor$ 
nom_tresor$ (num%)=tresor$ 
LOOP 
RETURN 


Il est impossible de créer une fonction @description tresor(tre- 
sor%) renvoyant la description du trésor tresor% car le GFA Basic 
n’admet pas les fonctions renvoyant une variable alphanumérique. 


FUNCTION description tresor(tresor“) 
RETURN nom tresor$(tresor“) 
ENDFUNC 


Cette fonction provoque l'apparition d’un message d’erreur RETURN 
sans PROCEDURE La raison pour laquelle le système affiche un pa- 
reil message d’erreur n’est pas évident à première vue. Etant donné 
que la syntaxe du GEA Basic ne comprend pas l’instruction RETURN 
suivie d’une variable alphanumérique, l’interpréteur pense que le 
RETURN est la fin d’une procédure. Et comme il ne trouve pas l’ins- 
truction PROCEDURE correspondant à RETURN (puisque c’est une 
FUNCTION), il affiche un message d'erreur. Pour écrire une routine 
renvoyant la description d’un trésor, il faut utiliser l'instruction VAR 
qui permet de modifier la valeur d’un paramètre d’une procédure. 


PROCEDURE description tresor(tresor“, VAR tresor$) 
tresor$=nom tresor$ (tresor“) 
RETURN 


Pour écrire la description du trésor numéro 2 dans la variable df, il 
faut utiliser la formule @description tresor(2,df). 


LOKRKKKAKKKARRKRAREAKERRAREÉÉ 


! * AFFICHAGE TRESOR 2 * 


L'OKRKKKAARARARARARAXKRRREAKX 


@description_tresor(2,d$) 
PRINT d$ 


Définition des créatures 


Les créatures sont définies par un nom, une Force, un nombre de 
Points de vie, une Capacité de combat, un Nombre d'attaques, une 
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Capacité de défense, un numéro d’arme, un numéro de protection, 
un nombre de points d'expérience et un numéro de trésor. Le nom 
des créatures est stocké dans le tableau nom creature$() ét les ca- 
ractéristiques dans le tableau def_creaturp#(). 


DIM nom creature$ (100) 
DIM def_creature%(100,9) 


def creature%(n#,1) = Force 

def _creature#(n%,2) = points de vie 

def _creature%(n%,3) = Capacité de Combat 
def creature%(n%,4) = Nb attaques 

def creature%(n%,5) = Capacité de défense 
def _creature#(n%,6) = Numéro arme 

1 def_creature#(n%,7) = Numéro Protection 

! def creature#(n%,8) = Points expérience 
def_creature#(n#,9) = Type de trésor 


Les caractéristiques des créatures sont stockées dans des lignes de DA- 
TA. Chaque créature possède un numéro de référence. Les créatures 1 
a 19 sont des animaux. Les créatures 20 a 49 sont des créatures intelli- 
gentes. Les créatures 50 a 100 sont des créatures surnaturelles ou 
extrêmement puissantes. Tous les numéros de référence ne sont pas 
attribués. Il reste de la place pour vos propres monstres. Remarque: 
si une créature ne possède pas de trésor, sa caractéristique trésor con- 
tient la valeur O. 


L'OKXKKKARAAKKKERKRERERERARRAREAREE 


! x DEFINITION DES CREATURES * 

1 OXKAKAKEKKKRKKÉAKRERARKERKERRKEREERERX 

! DATA Numéro, "Nom", Force, Points de vie 
! DATA Combat (%), Nb attaques, Défense (%) 
DATA Arme, Protection 

DATA Points d'expériences, Trésor 

DATA -1 = fin des créatures 

creatures data: 


LV OKKKKAKKKKRKAXX 


RER OTAQURSEET 

MEL TE ESS RENÉE ES 

‘ FORCE:18; VIE:30 

! COMBAT:68%;  ATTAQUE:2; DEFENSE:50%; 

! ARME:Griffes; PROTECTION:Fourrure épaisse 
! EXP:1000; TRESOR:Aucun 

DATA 1, "OURS" ,18,30 

DATA 68,2,50 

DATA 1,2 

DATA 1000,0 


1 KHAKKKKEKEKÉERARKRARX 


! * 2: LOUP GRIS * 

L XKKKKKKKKAKEXAAAEX 

IMFORCESTS MONTE: 12 

! COMBAT:80%; ATTAQUE:1; DEFENSE :40% 

! ARME:Crocs; PROTECTION:Fourrure épaisse 
! EXP:200; TRESOR:Aucun 


DATA 2,"LOUP GRIS",13,12 
DATA 80,1,40 

DATA 2,2 

DATA 200,0 


LOHKKKKKRKELKRAREX 


LAMATSERPENTIE 

LOXKHKRAKKKEKERAXEEX 

" FORCE:10; VIE:16 

! COMBAT:60%; ATTAQUE:1; DEFENSE:30 
‘ ARME:Morsure; PROTECTION:Ecailles; 
" EXP:400; TRESOR;Aucun 

DATA 3,'"SERPENT",10,16 

DATA 60,1,30 

DATA 3,3 

DATA 400,0 


LV OKXKKKAKKREAAEERERRERÉRERRERAAX 


! * 20 : BARBARE DU DESERT * 


LL 'KKKKEEKKXKREREXKERERRRREREREXE 


! FORCE:14; POINTS DE VIE:13 
! COMBAT :60%; ATTAQUE :2; DEFENSE:35 
! ARME:Cimeterre; PROTECTION:Armure de cuir 


! EXP:800; TRESOR:Moyen 
DATA 20,'"BARBARE DU DESERT",14,13 
DATA 60,2,35 


DATA 18,40 

DATA 800,2 

1 

1 KXKKKKKKKKKARARE 

‘4 21: ORQUE * 

1 OKKKKKXKKRKRKARARE 

‘ FORCE:13; POINTS DE VIE:14 

‘ COMBAT:62; ATTAQUE:1; DEFENSE: 50% 


{ ARME:Masse: PROTECTION:Armure de cuir 
" EXP:150;  TRESOR:Faible 

DATA 21,"ORQUE",13,14 

DATA 62,1,50 

DATA 13,40 

DATA 150,1 


L 'XKKKAKKAEKKAKERRRREX 


DEP 70 ELFE NOIR 0 

LO'XKKKKKKKKERERKRARARE 

! FORCE:12; POINTS DE VIE:16 

! COMBAT:90% ATTAQUE:3; DEFENSE:50 

ARME:Epée longue; PROTECTION:Armure de plaques 
EXP:2000;  TRESOR:Moyen 

DATA 22,"ELFE NOIR",12,16 

DATA 90,3,50 

DATA 12,42 

DATA 2000,2 


1 HRK RROARRIR 
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" # 50: DEMON * 

lOKXKKKXKERKERKRRAÉ 

! FORCE:20; POINTS DE VIE:50 

! COMBAT:90; ATTAQUE:5; DEFENSE :80 

! ARME:Griffes; PROTECTION:Peau de démon 
EXP:10000; TRESOR:Aucun 

DATA 50, "DEMON",20,50 

DATA 90,5,80 

DATA 1,6 

DATA 10000,0 


DL 'KKKKKKKKKKRRRERE 


"x 51: DRAGON * 

| KAKKKKKKAKAKAKRAEKEX 

! FORCE:30 POINTS DE VIE:500 
! COMBAT:100  ATTAQUE:10 DEFENSE:90 
! ARME:Souffle de feu; 

! PROTECTION: Peau de Dragon 

! EXP:90000; TRESOR:Fabuleux 
DATA 51,"DRAGON",30,500 

DATA 100,10,90 

DATA 4,5 

DATA 90000,4 


DATA -1 


La procédure @init creatures remplit le tableau def _creatu- 
re#() avec les créatures définies dans les lignes de DATA. 


PROCEDURE init _creatures 
LOCAL n%,nom$, force#,points vie“ 
LOCAL combat#,nb attaques, defense* 
LOCAL arme%,protection* 
LOCAL experience, tresor“ 
RESTORE creatures data 
DO 
READ n% 
EXIT IF n%=-1 
READ nom$ 
READ force* 
READ points vie 
READ combat 
READ nb_attaques* 
READ defense* 
READ arme 
READ protection“ 
READ experience 
READ tresor* 
nom_creature$ (n%)=nom$ 
def_creature#(n%,1)=force* 
def _creature#(n%,2)=points vie“ 
def_creature#(n%,3)=combat# 
def _creature%(n%,4)=nb attaques* 
def_creature%(n%,5)=defense* 


def_creature%(n%,6)=armes 

def_creature%(n%,7)=protections 

def _creature%(n%,8)=experiences 

def creature#(n%,9)=tresor“ 

LOOP 

RETURN 
Les fonctions suivantes permettent au programme d’obtenir des in- 
formations sur une créature sans s'occuper de la structure de stocka- 
ge des données. Elles simplifient la programmation et augmentent la 
lisibilité du programme source. 


FUNCTION force creature(creature%) 
RETURN def _creature#(creature#, 1) 
ENDFUNC 


FUNCTION vie creature(creature*) 
. RETURN def_creature#(creature“,2) 
ENDFUNC 


FUNCTION combat creature(creature*) 
RETURN def _creature*(creature#, 3) 
ENDFUNC 


FUNCTION nb_attaques creature(creature*) 
RETURN def_creature#(creature%,4) 
ENDFUNC 


FUNCTION defense creature(creature*) 
RETURN def _creature%(creature#,5) 
ENDFUNC 


FUNCTION arme creature(creature#) 
RETURN def _creature%(creature*,6) 
ENDFUNC 


FUNCTION protection creature(creature“) 
RETURN def_creature%(creature*,7) 


: ENDFUNC 


FUNCTION experience creature(creature“) 
RETURN def _creature#(creature#,8) 
ENDFUNC F 


FUNCTION tresor creature(creature#) 
RETURN def_creature%(creature#,9) 
ENDFUNC 


Définition du personnage 


Le personnage est géré d’une manière légèrement différente de celle 
des créatures. Il possède une donnée supplémentaire: le nombre de 
points de vie temporaire. Ces points de vie diminuent lorsque le per- 
sonnage reçoit un coup dans un combat. Si le nombre de points de 
vie temporaire tombe à 0, le personnage est mort. 

Les créatures ne possèdent pas de points de vie temporaires car leurs 
caractéristiques sont informatives. Lorsque le programme doit gérer 
un combat entre le personnage et une créature, il recopie dans une 
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variable spéciale le nombre de points de vie de la créature et décré- 
mente cette variable lorsque la créature reçoit un coup. Ce système 
évite de modifier la valeur des caractéristiques stockées en mémoire. 
Si le personnage rencontre un loup peu de temps après avoir tué un 
premier loup, les caractéristiques du second doivent être identiques à 
celles du premier (et tout particulièrement le nombre de points de 
vie). 

Le nom du personnage est stocké dans la variable nom_perso$. Les 
caractéristiques sont stockées dans le tableau def_perso%(). La ca- 
ractéristique Expérience correspond au nombre de points d’expé- 
rience accumulé par le personnage lors de ses affrontements. Elle 
vaut 0 au début du programme. 

nom perso$="" 

DIM def perso#(9) 

! def _perso#(1) = Force 

def perso%(2) = Points de vie max 

! def perso%(3) = Points de vie temporaire 
‘ def _perso%(4) = Compétence de combat (3) 
! def perso#(5) = Nb attaques 

‘ def perso%(6) = Compétence de défense (%) 
! def perso#(7) = Expérience : 

! def perso#(8) = Arme 

def perso#(9) = Protection 


” 


Les statistiques du personnage sont définies dans des lignes de DATA. 
Etant donné le petit nombre de caractéristiques, elles auraient pu 
être écrites directement dans les variables concernées, mais c’est une 
méthode de programmation à éviter. 


! DATA Nom, Force, Points de vie 

! DATA Combat (%), Nb'attaques, Défense (x) 
! DATA Arme, Protection 

! nom:KURT BRISE-CRANE 

! FORCE:13; VIE:15; 

! COMBAT:70%; ATTAQUE:1; DEFENSE:60% 

! ARME:EPEE LONGUE; Protection: COTTE DE MAILLES 
perso data: 

DATA "KURT BRISE-CRANE",13,15 

DATA 70,1,60 

DATA 12,41 


La procédure @init_perso initialise la variable nom. persof et le ta- 
bleau def_perso%() avec les informations définissant le personnage. 


PROCEDURE init perso 
LOCAL nom$,force%,points vie” 
LOCAL combat%,nb_ attaques“, defense* 
LOCAL arme%,protection 


RESTORE perso data 
1 

READ nom$ 

READ force“ 

READ points vie* 


READ combat 

READ nb_attaques* 

READ defense 

READ arme“ 

READ protections 

nom persoÿ=nom$ 

def perso#(1)=forces 

def perso%(2)=points_ vie“ 

def perso%(3)=points vie“ 

def _perso%(4)=combat* 

def _perso%(5)=nb_ attaques 

def_perso%(6)=defense* 

def_perso*(7)=0 

def_perso%(8)=arme* 

def perso#(9)=protections 
RETURN 


Les fonctions suivantes permettent au programme d’accéder facile- 
ment aux données définissant le personnage. De la même manière 
que les fonctions d'informations sur les créatures, elles permettent 
d'accéder aux informations du personnage sans rien connaître de 
leurs structures de stockage. 


FUNCTION force perso 
RETURN def _perso%(1) 
ENDEUNC 


FUNCTION vie max perso 
RETURN def _perso%(2) 
ENDFUNC 


FUNCTION vie perso 
RETURN def _perso%(3) 


‘ÆENDFUNC 


FUNCTION combat perso 
RETURN def perso%(4) 
ENDFUNC 


FUNCTION nb_ attaques perso 
RETURN def _perso%(5) 
ENDFUNC 


FUNCTION defense perso 
RETURN def perso%(6) 
ENDFUNC 


FUNCTION experience perso 
RETURN def_perso%(7) 
ENDFUNC 


FUNCTION arme perso 
RETURN def_perso#(8) 
ENDFUNC 


FUNCTION protection perso 
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RETURN def_perso#(9) 
ENDFUNC 


Bonus aux dommages 


Un homme fort fait plus de dégâts avec une épée qu’un frêle garçon 
utilisant la même arme. Les dégâts supplémentaires viennent de la 
différence de force entre l’homme et le garçon. Pour simuler l'effet 
de la force sur les dommages, le programme calcule le dommage d’u- 
ne attaque en additionnant le dommage de larme et une valeur 
appelé «bonus de force». Le bonus de force dépend de la force de l’at- 
taquant. Plus un personnage est fort, plus son bonus de dommage 
est important. De la même manière, plus un personnage est faible, 
moins son bonus de Force est élevé. Une créature vraiment faible 
peut même avoir un bonus de dommage négatif. La manière la plus 
simple de gérer les bonus de force est de les stocker dans le tableau 
bonus_dommage%(). Pour connaître le bonus de force de la force 
f%, il suffit de lire la valeur de bonus dommage%(f#). 


DIM bonus dommage%(30) 


La valeur des bonus est stockée dans des lignes de DATA. Les bonus 
ont été établis en tenant compte qu’un homme avec une force de 10 
n'a aucun bonus. Ils sont définis sous la forme «Force/Bonus». La 
valeur 1 est l'indicateur de fin de données. Si vous voulez étendre la 
table de bonus au-delà de 30, il faut augmenter la taille du tableau 
bonus dommage#(). 


bonus dommages data: 


DATALLS-5,  2,-4, 3,-3,, 4,-2,0/#5,2=1 

DATA 6,-1, 7,0, 8,0, 9,0, 10,0 

DATA 017 10003; 1, 0n14020 1553 

DATAM6,45%117;5, 0 18,610119;7;, 220 2078 

DATA 21,9, 22,10, 23,11, 24,12, 25,13 
DATA 26,14, 27,15, 28,16, 29,17, 30,19 
DATA -1 


@init_bonus charge les bonus dans le tableau bonus dommage#(). 


PROCEDURE init bonus 
LOCAL n%,bonus* 
ARRAYFILL bonus dommage#() ,0 
RESTORE bonus dommages data 
DO 
READ n% 
EXIT IF n%=-1 
READ bonus* 
bonus _dommage#(n#)=bonus* 
LOOP 
RETURN 


La fonction @bonus_force(force#) fournit le bonus de force cor- 
respondant à la force forcex. 


LOKXKKKAKKKAKARARAREREREREREEEÉEE 


" * VALEUR DU BONUS DE FORCE * 


LL OKKKKKKKKKKEREKRKRARERAARERAAERAX 


FUNCTION bonus _force(force#) 
RETURN bonus. dommage*(force“) 
ENDFUNC 


Initialisation des données du programme 


La procédure @init_datas initialise les tableaux de données avec la 
définition des différents objets du jeu (armes, protections, trésors, 
etc.) Elle doit impérativement être appelée en début de programme. 


PROCEDURE init datas 
Ginit_armes 
@init protections 
@init tresors 
Ginit_bonus 
@init perso 
Qinit _creatures 
RETURN 


Exécution d’un combat 


Pour exécuter un combat, le programme a besoin de connaître le 
type de la créature affrontant le personnage et son nombre de points 
de vie. La procédure @exec combat (creature%) simule un combat 
entre le personnage et une créature de type creature%. Le type de 
créature est stocké dans la variable globale typ ennemi% et son 
nombre de points de vie dans la variable globale vie ennemi. 

Dés que l’un des combattants est mort, la routine @exec_combat af- 
fiche le résultat du combat. Si le personnage est vivant, elle affiche le 
nombre de points de vie restant, le nombre de points d'expérience 
gagnés et le type de trésor éventuellement possédé par la créature. 


PROCEDURE exec combat (creature) 
LOCAL m$ 
LOCAL tresor“ 
LOCAL tresor$ 
LOCAL exp# 


typ_ennemi=creature 
vie ennemi%=@vie creature(creature*) 
@combat 
IF Gmort_ennemi=1 
m$=nom creature$(typ_ennemi#) 
m$=m$+" est mort" 
PRINT 
PRINT m$ 
tresor#=@tresor creature(typ_ennemi#) 
exp%=@experience creature(typ_ ennemi) 
IF tresor#<>0 
@description tresor(tresor%,tresor$) 
PRINT "TRESOR : ";stresor$ 
ENDIF 
PRINT "EXPERIENCE : ';exp# 


PRINT "Points de vie perso : "; 
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PRINT @vie perso;"/";@vie max_perso 
PRINT 
ENDIF 
IF @mort perso=1 
PRINT 
PRINT nom perso$+" est mort" 
ENDIF 
RETURN 
La fonction @mort ennemi teste si l'adversaire du personnage est 
mort en regardant la valeur contenue dans la variable vie ennemi. 
Elle renvoie 1 si l'adversaire est mort et O dans le cas contraire: 


L OKKKAKKKAKRAKEXKEXERLRARAARARRRARRARAREXXERAR 


TEST SI L'ADVERSAIRE DU PERSO EST MORT * 
L KAKKKKERRREEREEHAALAANERERRARAERRERREREAEREARER 
FUNCTION mort ennemi 

LOCAL results 


RE : 


IF vie ennemi%<=0 
result#=1 


ELSE 
result#=0 
ENDIF 
RETURN result# 
ENDFUNC 


La fonction @mort_perso teste si le personnage est mort. Elle utilise 
la routine @vie perso pour connaître le nombre de points de vie! 
restant du personnage. Elle retourne 1 si le personnage est mort et 0 
dans le cas contraire, 


L'KKKRKA*RÉEAKKERERRERARERARRARARARHEAREREE 


TEST SI LE PERSONNAGE EST MORT * 
LOKKKKAKKEKEAREREAKRAREREERERERER AREA 
FUNCTION mort perso 

LOCAL result* 


LU *x 


IF @vie perso<=0 
result#=1 


ELSE 
result#=0 
ENDIF 
RETURN result 
ENDFUNC 


Gestion du combat 


La procédure @combat gère l’enchaînement des rounds de combat. 
La procédure @round_ combat simule l'exécution d’un round. Le 
combat ne s'arrête que lorsque l’un des combattants est mort: | 


l KXKKKKKKARRARRRAKRARANERE 1 


GESTION DU COMBAT * 
LOXKKKKKKKKRKAKKKKAKEKEREER 
PROCEDURE combat 

DO 


Ex 


@round_ combat 
EXIT IF @mort perso=1 
EXIT IF @mort_ennemi=1 
LOOP 
RETURN 


Exécution d’un round de combat 


La procédure @round_combat gère l’exécution d’un round de com- 
bat. Les adversaires frappent les uns après les autres jusqu’à épuise- 
ment de leur nombre d'attaques. Le combat cesse immédiatement si 
l’un des combattants meurt. 

La routine lit le nombre d’attaque de chaque combattant, puis les 
exécute À la suite. La variable nb_att_perso% contient le nombre 
d’attaques du personnage. Le nombre d’attaques de son adversaire est 
stocké dans la variable nb_att_ennemi%. Le contenu de ces variables 
est décrémenté après chaque attaque. 


1 OKKKKKXKAKKÉERKEEEERERKRAARRERERARERERÉE 


EXECUTION D'UN ROUND DE COMBAT * 
VO KXKKAKKREEKRRRERARERREAAARERRERRRRRRK 
PROCEDURE round combat 

LOCAL nb att perso“ 

LOCAL nb att ennemis 


1x 


nb _att perso%=@nb attaques perso 
nb_att_ennemi%=@nb_ attaques creature(typ_ ennemi“) 
REPEAT 
IF nb att perso%<>0 
Gattaque ennemi 
DEC nb att persos 
ENDIF 
EXIT IF @mort_ennemi=1 
0 
IF nb'att_ennemi%<>0 
Gattaque perso 
DEC nb att ennemis 
ENDIF 
EXIT IF @mort perso=1l 
UNTIL (nb _att perso%=0) AND (nb att_ennemi*=0) 
RETURN 


La routine @round combat utilise la fonction @nb attaque perso 
pour connaître le nombre d’attaques du personnage. Cette fonction 
assuré l'interface entre le programme et une des informations défi- 
nissant lé personnage. 

La routine @attaque ennemi simule une attaque du joueur contre 
son adversaire. La routine @attaque perso simule une attaque de 
l'ennemi contre le personnage. 


Le personnage attaque son adversaire 


La procédure attaque ennemi gère l'attaque du personnage contre 
son ennemi. La probabilité que le personnage touche son adversaire 
est la compétence de combat du personnage diminuée de la 
compétence de défense de l'ennemi. Si la probabilité de toucher est 
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trop faible, elle est ajustée à 5% afin qu’un combattant trop faible aie 
quand même une chance de toucher son adversaire (même si celui-ci 
est une créature fabuleusement puissante). 


LD OKAKKKAKKKERERKERRERRRRRÉRRERE 


! * LE PERSONNAGE ATTAQUE * 
De SON ENNEMI ‘ÿ 
1 KXRKKKKKRKKRKERARARRRRAKRARARERREÉ 
PROCEDURE attaque ennemi 
LOCAL combat_perso* 
LOCAL defense creature% 
LOCAL pourcentage 
LOCAL m$ 
' 
combat perso%=@combat perso 
defense creature%=@defense creature(typ_ ennemi%) 
pourcentage#=combat perso%-defense creature* 
IF pourcentage#<5 
pourcentage#=5 
ENDIF 
IF (RANDOM(100)+1)<=pourcentage 
dommage#=@dommage creature(num ennemi“) 
IF dommage#<>0 
SUB vie ennemi%,dommage* 
m$=nom creature$(typ_ennemi%) 
m$=m$+" reçoit "+STR$ (dommages) 
m$=m$+" points de dommage" 
PRINT m$ 
ENDIF 
ENDIF 
RETURN 


Si l'ennemi est touché, le programme affiche le nombre de points de 
dégâts. Le programme teste la valeur des dommages pour éviter d’af- 
ficher un dommage de 0 point de dégât. 

Cela peut arriver si une créature dotée d’une forte protection reçoit 
un coup faible (par exemple.un coup de canif contre une armure de 


plaques). 


Calcul des dommages causés 
par le personnage 


La fonction @dommage creature calcule les dégâts fait par le joueur 
à son ennemi. Ils sont égaux aux dommages causés par l’arme du 
personnage, plus le bonus de force du personnage, moins la protec- 
tion de l'ennemi. 

Dans certains cas de figure, le dommage peut être négatif. Cela peut 
notament arriver avec une arme faible et une grosse valeur de protec- 
tion. Pour éviter cela, les dégâts négatifs sont automatiquement 
ajustés à O. 


FUNCTION dommage creature(creature“) 
LOCAL force* 
LOCAL arme% 
LOCAL dommage* 


LOCAL protections 
force#=@force perso 
arme*=Carme perso 
protection%=@protection creature(creature#) 
dommage#=@dommage arme(arme*) 
ADD dommage%,@bonus force (force#) 
SUB dommage%,@valeur prétection(protection#) 
IF dommage*<0 Q 
dommage*=0 
ENDIF 
RETURN dommage* 
ENDFUNC 


L'adversaire attaque 
le personnage 


La procédure attaque perso gère l’attaque de l’ennemi contre le 
personnage. Elle fonctionne de la même manière que la procédure 
@attaque ennemi à ceci que l'attaquant et le défenseur sont in- 
versés. 


LOXKKKRKRXKKRKEKRARÉRAARARARAREREX 


 *  L'ENNEMI typ creatures * 
* * ATTAQUE LE PERSONNAGE  * 
l 'KHKXKAKRAKAKAKAKARAKERREEKKRERAKRÉEEX 
PROCEDURE attaque perso 
LOCAL combat _ennemix 
LOCAL defense perso 
LOCAL pourcentage 
combat _ennemi*=@combat_creature(typ_ ennemi“) 
defense perso%-@defense creature(typ ennemi“) 
pourcentage#=combat_ennemi#-defense perso* 
IF pourcentage#<5 
pourcentage#=5 
ENDIF 
IF (RANDOM(100)+1)<=pourcentage* 
dommage*=@dommage perso(typ ennemi) 
IF dommage#<>0 
@dec vie perso(dommage#) 
m$=nom perso$+" perd "+STR$ (dommage#) 
m$=m$+" points de vie." 
PRINT m$ 
ENDIF 
ENDIF 
RETURN 


Cette routine affiche le nombre de points de dégâts encaissés par le 
personnage quand il est touché Un test sur cette valeur évite d’affi- 
cher un dommage de 0 point. 

La procédure @dec vie perso(dommage) permet de gérer facile- 
ment la perte de points de vie du personnage. 
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Calcul des dommages reçus 
par le personnage 


La fonction @dommage perso(creaturg%) calcule les dommages 
causés par la créature creature% contre le personnage. Leur valeur 
est calculée en fonction de l'arme et du bonus de force de la créature. 
Le dommage est diminué de la valeur de protection du personnage. 
Le principe de fonctionnement est le même que celui de la procédu- 
re dommage _creature(creature“). 


À à He de eee D DK DEEE ACER RE RARE RARE Ke 


! * CALCUL DU DOMMAGE FAIT PAR LA CREATURE * 
! x creature*% AU PERSONNAGE 54 
RH RORAUR RARE EUR ROAD RAR RO RAR AA A ARR RE 
FUNCTION dommage perso(creaturex) 

LOCAL force* 

LOCAL arme“ 

LOCAL dommage“ 

LOCAL protections ’ ; 

force*=@force creature(creature#) 

arme%=@arme creature(creature#) 

protection#=@protection perso 

dommage*=@dommage arme (arme“) 

ADD dommage%, @bonus force(force#) 

SUB dommage*,@valeur protection(protection“) 

IF dommage%<0 

dommage#=0 

ENDIF 

L 

RETURN dommage 
ENDFUNC 


Cette routine utilise la fonction @valeur protection(protec- 
tion%) qui permet de connaître le nombre de points de protection 
assuré par l’objet protection. Les éventuels dommages négatifs 
sont automatiquement remis à O. 


Perte des points de vie du personnage 


La fonction @dec vie perso(n%) diminue les points de vie tempo- 
raires du personnage. Le nombre de points de vie temporaire ne peu- 
vent descendre en-dessous de 0. 


PROCEDURE dec vie perso(nx) 
SUB def_perso%(3),n% 
IF def_perso#(3)<0 
def_perso#(3)=0 
ENDIF 
RETURN 


Augmentation des points de vie 
du personnage 


La procédure inc vie perso(n#) augmente le nombre de points 
de vie temporaire de n% points. Elle effectue un test pour s'assurer 


que le nombre de points ne dépasse pas le nombre de points maxi- 
mum du personnage. 


PROCEDURE inc vie perso(n#) 
ADD def _perso#(3) ,n% 
IF def perso#(3)>@vie max perso 
def_perso#(3)=@vie max perso 
ENDIF 
RETURN 


Soins médicaux 


Après avoir perdu des points de vie dans un combat, le personnage 
peut se rendre chez un soigneur pour reprendre des forces. Afin de 
simuler les aléas de la réalité, le personnage ne récupère pas un 
nombre fixe de points de vie, mais un nombre déterminé avec une 
formule aléatoire. Un soin permet de récupérer 3 points de vie au 
minimum et 6 points au maximum. Le tirage se fait avec l’instruc- 
tion RANDOM(4)+3. La formule RANDOM(4) fournit un nombre 
aléatoire compris entre 0 et 3. 


PROCEDURE soins perso 

LOCAL soins 

IF @vie perso=@vie max perso 
PRINT "Pas besoin de soins" 

ELSE 
soins#=RANDOM(4)+3 
IF (@vie persotsoins#)>@vie max perso 

soins%=@vie max perso-@vie perso 

ENDIF 


@inc vie perso(soins#) 
PRINT "Le personnage récupère "; 
PRINT STR$(soins%); 
PRINT ! points de vie." 
PRINT "Points de vie perso : "; 
PRINT @vie perso;"/";@vie max. perso 

ENDIF 

PRINT 

RETURN 


La procédure soins perso soigne le personnage et affiche le résul- 
tat des soins. Le programme ajuste le nombre de points de soins de 
manière à ne pas dépasser le nombre de points de vie maximal. 

Les jeux de rôle micro offrent divers méthodes de soins : sorts de 
guérison, potions magiques de soins, guérisseurs, herbes médicinales, 
etc. Ces méthodes fonctionnent toute de la même manière, c’est-à-di- 
re en augmentant le nombre de points de vie. Mais ils peuvent varier 
au niveau de l'efficacité, du prix et de la disponibilité. 

Pour varier les plaisirs, vous pouvez introduire dans votre jeu des 
soins particuliers permettant de guérir des maux spécifiques (poi- 
sons, maladies, malédictions, etc.) 
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Structure du programme complet 


La structure du programme complet est la suivante : 


RESERVE 100000 

! Déclaration des tableaux 
@init_datas 

@main 

END 

! Code procédure main 

! Codes des procédures du programme 
! Définition des données en DATA 


La procédure principale 


La procédure @maïin est une procédure de test qui vous permet de 
tester le système de combat. C'est une routine ‘minimum! qui simu- 
le le programme de jeu de rôle appelant le gestionnaire de combat. 


PROCEDURE main 
LOCAL c$,creat 
! 
DO 
PRINT "C)ombat" 
PRINT "S)oins perso" 
PRINT "Fjin combat" 
DO 
c$=INKEYS 
c$=UPPER$(c$) 
EXIT IF (c$="C") OR (c$="S") OR (c$="F") 
LOOP 
L 
SELECT c$ 
CASER*C* MC" 
INPUT "Numéro créature ",creat* 
PRINT 
@exec_combat(creat#) 
CASEUS HS! 
@soins perso 
ENDSELECT 
EXIT IF (c$="F") OR (c$="f") 
EXIT IF Gmort perso 
LOOP 
RETURN 


Améliorations du programme 


Le système de combat peut être amélioré de nombreuses manières. 


Vous pouvez rajouter une caractéristique Dextérité et faire en sorte 


que la créature ayant la plus forte dextérité frappe en premier. 

Le personnage peut affronter plusieurs ennemis à la fois. Les modifi- 
cations sont assez faciles à faire, mais prennent beaucoup de place. 
La psychologie des créatures du jeu est très simple puisqu’elles com- 
battent jusqu’à la mort. Ce n’est pas très réaliste. Les créatures de- 
vraient avoir la possibilité de fuir lorsqu'elles commencent à perdre 
le combat. De la même manière, le personnage devrait aussi avoir la 
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possibilité de rompre le combat. La visualisation des combats est 
sommaire. Il est possible d’ajouter des messages supplémentaires afin 
de rendre les combats plus réalistes. Avec beaucoup de travail, vous 
pouvez réaliser une visualisation graphique des combats. 

Les listes d'objets (armes, protections, trésors et créatures) ne sont 
pas longues. Il peut être amusant de définir de nouvelles armes et de 
nouvelles créatures. Si vous nous envoyez des listes intéressantes, 
nous les mettrons en téléchargement sur le serveur 3615 ATARI. 


36 XraRI 


PLUS DE 1 500 LOGICIELS GRATUITS! 
TELECHARGEZ 


[] Je commande le KIT DE TELECHARGEMENT {cêble de 
liaison Atari ST/minitel + une disquette contenant des 
utilitaires de téléchargement) me permettant de 
télécharger gratuitement des centaines de programmes. 
De plus la disquette contient le jeu NAWYTEL, pour jouer 
contre des centaines d'adversaires à travers toute la 
France grâce au réseau minitel. : 

Prix exceptionnel: 
95F+6F de frais d'expédition*=101 F 

[1 Je commande uniquement la disquette du 
téléchargement, 3 pouces 1/2 pour ST au prix de 
15 F + 6 F de participation aux frais d'expédition=2] F 
(16 F pour l'étranger=31 F). 

[] Je commande uniquement la disquette du 
téléchargement, 3 pouces 1/2 pour PC au prix de 16 F 
+ 6 F de participation aux frais d'expédition=22 F 
(16 F pour l'étranger=32 F). 


NE TAPEZ PLUS LES LISTING! 

CHARGEZ-LES 

[] Je commande la disquette BEST OF GFA BASIC avec les 
images au prix de 70 F 


*Si vous êtes équipé d’un MEGA STE ou d'un TT, le câble de liaison doit être complété par 
un adoplateur9/16 broches [non fourni par Ariipresse). 





Ci-joint mon règlement de 
par chèque bancaire où postal (les mandats ne peuvent 
être acceptés sauf pour les DOM/TOM et étrangers en FF] 
à l'ordre d'ARTIPRESSE. 


e 





Nom (HEIN ER TEEN CR GS, PR À 1 LS 
Prénom SIT TE EPA Ve MAT EE MR PR 25 pe 528 
Adresse 82 2 LEE SPRL UE (ECS JO RAT | 

DER ESS HAE] LS EC) RE ae te ES] le 1 152 (Ep 
Code postal (HR ER ÉRRR SE r ARRE LL LG pu 
_ Ville SITES PAR FAC PA PO RE ERA 22 ne pe 
Pays (LL RER RE] RENTREE a FOR RE PUR ee PE ES 


Date decde L_1 | 1 1 1 991] 


IMPORTANT : il nest pas accusé réception des 
commandes. l'encaissement de votre chèque signifie que 
votre ordre a été enregistré dans le fichier informatique. 


Délai d'expédition 3 semaines après encaissement. 





JEU D'AVENTURE EN GFA BASIC 





Voici un petit jeu d'aventure du type Bat ou Final Command 
fonctionnant entièrement à la souris que vous pourrez modifier et 
compléter pour obtenir votre propre jeu. 


Description du jeu ; 


Un jeu d'aventure ést une série de lieux. Le joueur peut se déplacer 
d’un lieu à un autre, et accomplir diverses actions. Dans ce program- 
me, à chaque lieu est associé une liste de zones d’action. Chaque fois 
que la souris est placée sur l’une de ces zones, sa forme change. Cette 
nouvelle forme indique le type d’action associé à cet emplacement 
de l'écran. Pour exécuter cette action, le joueur n’a plus qu’à cliquer. 


Les actions du jeu 


Le jeu proposé ici ne permet pas beaucoup d’actions. C’est un pro- 
gramme de démonstration, et non un jeu commercial. La publica- 
tion dans un journal a des impératifs draconiens, surtout au niveau 
de la taille des listing. Les actions existantes sont : changer de lieu, 
passer une porte, examinér un objet, converser avec un personnage, 
manger et boire. 

Chaque action est associée à une forme de souris particulière, et pro- 
duit un effet. Le changement de lieu permet de passer d’un endroit à 
un autre, tout comme le passage d’une porte. L'action ‘examen d’un 
objet’ affiche un texte informatif sur l’objet. L'action ‘conversation’ 
affiche le dialogue entre le joueur et un personnage de l’aventure. Les 
actions manger’ et ’boire’ ne produisent aucun effet apparent. Ce se- 
ra à vous de les programmer. 


Quelques actions supplémentaires 


Pour obtenir un jeu vraiment utilisable, il faudrait ajouter beaucoup 
d'actions. Voici quelques idées : attaquer un personnage, voler un 
objet, utiliser un appareil électronique quelconque (comme dans 
Bat), acheter divers objets, donner un objet, gérer les objets possédés 
par le joueur, ouvrir une porte avec une clé (ou défoncer la porte), 
ouvrir un tiroir, casser une vitre, etc. 

Vous pouvez ajouter aussi des options de déplacement comme mon- 
ter ou descendre un escalier, monter dans un bateau (ou sur un che- 
val), sauter par une fenêtre, etc. 

Les idées d’actions ne manquent pas. Elles dépendent du type d’envi- 
ronnement que vous avez choisis pour votre jeu. Les actions envisa- 
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geables dans la France des années 1930 ne sont pas les mêmes qu’à 
Megapolis en 2387 ou qu’à Hangenar, 75000 ans avant notre ère. 


Présentation du jeu 


L'écran est divisé en trois zones distinctes : les options système, le 
dessin du lieu courant, et la description textuelle de ce lieu. Les op- 
tions système sont des fonctions très importantes auxquelles le 
joueur doit pouvoir accéder en permanence. Ces options sont : lop- 
tion "INFO" qui affiche diverses informations sur le logiciel, l'option 
"SAUVER!" qui permet de sauver l’état du jeu sur disquette; l'option 
"LECTURE" qui permet de relire une sauvegarde et l'option "SORTIE 


JEU! qui pérmet de quitter le programme en cours de jeu. 


INFO | | SAUVEGARDE LECTURE SORTIE JEU 


Image du lieu 













Description du lieu 


Création d’une aventure 


Pour créer une aventure, il faut commencer par étudier le scénario. 
Un bon scénario, c’est un type d'environnement (fantastique, scien- 
ce-fiction, héroïc-fantasy, historique, etc.), un thème (policier, es- 
pionnage, intrigue politique, horreur, etc..), une bonne histoire, des 
personnages sympathiques ou inquiétants, des lieux originaux (une 
chapelle gothique, une cité sous-marine, la morgue d’un hôpital spa- 
tial du 25ème siècle, la loge d’un concierge, une salle de torture 
médiévale, un tribunal de l’Inquisition, etc.). 


Décomposition de l'aventure 


Une fois le scénario terminé, il faut passer par la phase d'analyse et 
de décomposition. Il faut définir les lieux, les liens existant entre 
eux, les images les représentant, les textes descriptifs associés à 
chaque endroit, les personnages, les dialogues et les messages. Ceci 
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_est valable pour le système de jeu que je vous propose ici. Si vous 


avez rajouté des actions supplémentaires (et je vous le conseille), le 
travail doit aussi être fait pour ces nouvelles actions. 


Codage d'une aventure 


Une fois l'aventure décomposée en ses éléments de base, il faut pas- 
ser à la phase de codage. Le scénario doit être codé dans le program- 
me. La plupart des programmeurs professionnels utilisent des édi- 
teurs de données. Ces éditeurs génèrent des fichiers de données bi- 
naires. C’est une technique trop complexe à mettre en oeuvre dans le 
cadre d’un article. C’est pourquoi jai choisi une solution simple, fa- 
cile à mettre en oeuvre. Les données sont écrites dans des lignes de 
DATA à la fin du programme source. Au début de l'exécution, une 
série de routines d’initialisation chargent ces données dans les ta- 
bleaux de données. 


Codage des messages 


Les messages sont codés dans des lignes de DATA. Le début de la zo- 
ne des message est repéré par la présence du label messages” Leur 
taille n’est pas fixe. Il faut donc un indicateur de fin de message. Cet 


indicateur est le caractère *. l'indicateur de zone de message est 
(SEIN: 


LD 'XKKKKRKKEAKAKXARARKAARAKREARARE 


! % EXEMPLES DE MESSAGES * 

L 'KXKKXKKAKKAKAKKAKKKKKKEXKEAXERXX 

messages: | 

DATA Ceci est le premier message du jeu. Il est 

DATA affiché lorsque le joueur clique sur la zone 
DATA correspondante. Il peut correspondre à la 

DATA description d'un objet, ou d'un lieu particulier. 
DATA * 

DATA Voici le second message. Il est un peu plus court 
DATA que le premier, mais tout aussi important. 

DATA * 

DATA *FIN 


Codage des dialogues 


Les dialogues sont aussi codés dans des lignes de DATA. Leurs struc- 
tures est identique à celle des messages. Ces dialogues sont très sim- 
plifiés. Dans un jeu commercial, il faudrait avoir des échanges ver- 
baux un peu plus étoffés. La zone de stockage de dialogues est in- 
diquée par la présence du label "dialogues". 


LOHXKKKKKKRKAKERKARARAAAAREAKRÉRE 


! x EXEMPLES DE DIALOGUES * 
LOXKKAKKKKKRRRAKKAKRÉEERERREERREE 

dialogues: 

DATA Le vieil homme vous répond que la clé de la 
DATA sagesse se trouve dans la connaissance, et 
DATA non dans une croyance aveugle. 

DATA * 

DATA Le magicien vous explique qu'il a raison. Il 
DATA vous laisse le choix entre être de son avis, 
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DATA ou recevoir une boule de feu. 

DATA * 

DATA Le jeune mercenaire vous répond qu'il est du 
DATA coté de celui qui lui donne le plus de pièces 
DATA d'or. 

DATA * 

DATA *FIN_ DIALOGUES 


Codage des formes de souris 


Les formes de souris sont stockées dans des lignés de DATA selon le 
format défini dans l’article Bibliothèque de formes de souris. Elles 
ont été fabriquées à partir d’une image Degas Elite grâce au généra- 
teur de souris décrit dans l’article sur les souris (source disponible en 
téléchargement). 

Le listing fourni avec cet article comprend 8 formes de souris. Vous 
pouvez les utiliser pour votre propre programme, ou en rajouter 
d’autres. Chaque souris a son numéro d'identification. Il n’y a pas 
une forme de souris pour une action spécifique. Par exemple, les sou- 
ris <ALLER DROIT DEVANT>, <ENTRER PORTE> et <DEMI-TOUR> cor- 
respondent toutes à l’action <DEPLACEMENT>. Pour le joueur, aller de- 
vant lui, entrer par une porte ou faire demi-tour dans une rue ne 
sont pas les mêmes actions, alors que pour le programme, il s’agit 
toujours de passer dans un autre lieu. 


1 : <ALLER DROIT DEVANT> 
2 : <ENTRER PORTE> 

3 : <PARLER> 

4 : <MANGER> 

5 : <BOIRE> 

6 : <FRAPPER> 

7 : <OEIL> (pour <EXAMEN>) 
8 : <DEMI-TOUR> 


Codage des actions 


Les actions sont des routines du programme. Elles ont toutes un 
numéro d'identification. 


Action <DEPLACEMENT> : 1 
Action <PARLER> 2 
Action <MANGER> : 4 
Action <BOIRE> 5 
Action <EXAMEN> DES 


Codage des lieux 


Au niveau interne, les lieux sont définis comme une série d’informa- 
tions. Ces informations sont : une image, un texte descriptif, et un 
certain nombre de zones de cliquage correspondant chacune à une 
action réalisable dans ce lieu. J 
On associe à chaque action un paramètre spécifiant l'objet avec 
lesquel l’action doit s'effectuer (le numéro du nouveau lieu pour 
<DEPLACEMENT>, la personne pour <DIALOGUE>, le numéro de messa- 
ge pour <EXAMEN>, etc..). 

L'image est une image dessinée avec le logiciel de dessin Degas Elite, 
stockée sous un format binaire avec le programme GEN IMGS. La 
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technique à mettre en oeuvre:pour cette opération est expliquée un 
peu plus bas avec les détails sur GEN_IMGS. 

Prenons un exemple de lieu. Il s’agit d’une pièce fermée avec une 
seule porte. Cette: porte donne sur un,long couloir. La pièce est 
éclairée par de grandes torches. Le joueur ne peut accomplir que 
deux actions: examiner les torches ou passer la porte. La description 
de ce lieu comprend : le nom du fichier binaire contenant l’image de 
ce lieu, le texte descriptif de la porté, et la définition des deux zones 
de clics (les torches et la porte). 


V'OKKKKKAKKARKAKRKERKRERAKXE 


! * EXEMPLES DE LIEU * 


LORAKKKAKRARRERRRÉERKÉAEEXX 


lieux: 
LOKKKKKKRKKKRRERREREREEREERRERÉRERÉÉE 


! * LIEU 1 : SALLE AVEC TORCHES * 
LOKAKKKKKKARARKRRRRKKKKERRARAKRERERÉ 

DATA SALLE.BIN 

DATA Vous vous trouvez dans une grande salle écJairée 
DATA par d'immenses torches en métal. La seule issue 
DATA visible est une gigantesque porte en bronze. 
DATA * 

DATA 30,40,100,35,7,7,1 

DATA 100,40,30,50,2,1,2 

DATA -1 


La ligne 30,40,50,35,7,7,1 contient le codage de la première zo- 
ne de clic. Cette zone est positionnée à la position (30,40). Elle à une 
largeur de 50 pixels, et une hauteur de 35 pixels. Lorsque la souris 
passe sur cette zone, elle doit avoir la forme 7 (<EXAMEN>). En cas de 
clic souris cette zone, il faut appeler la routine 7 (AFFICHAGE D'UN 
MESSAGE>), et afficher le message numéro 1. Ce message est une des- 
cription assez horrible des gravures des torches. 

La ligne 100,40,30,50,2,1,2 contient le codage de la seconde zo- 
ne de clic. Cette zone est située à la position (100,40). Elle à une lar- 
geur de 30 pixels, et une hauteur de 35 pixels. Lorsque la souris passe 
dessus, elle doit avoir la forme 2 (<PASSER PORTE>). Si le joueur 
clique sur cette zone, il faut appeler la routine 1 (<DEPLACEMENT>). 
Le nouveau lieu sera le lieu 2. 

La fin des zones est indiquée par la ligne DATA -L La fin de tous les 
lieux est indiquée par laligne DATA *FIN. 


LOKXKKKKAKKKERKKEKRKKRKERE 


‘x LIEU 2 : COULOIR * 

D OKKKKAKKKKRKERARRRÉ EX É EX 

DATA COULOIR.BIN 

DATA Vous vous trouvez actuellement dans un 
DATA gigantesque couloir. I1 semble s'étendre 
DATA à l'infini. Il y a une immense porte 
DATA de bronze dans votre dos. 

DATA * 

DATA 20,80,200,10,8,1,1 

DATA -1 

DATA *FIN 


Il n’y a qu’une seule zone de clic dans ce lieu. La forme de souris 
correspondante est la forme 8 (<DEMI-TOUR>). Lorsque le joueur 


clique sur cette zone, le programme lance l'exécution de la routi- 
né 1 (<DEPLACEMENT>), et le joueur se retrouve dans le lieu 1. La 
ligne DATA *FIN indique qu’il n’y a pas d’autres lieux dans cette mi- 
ni-aventure. 


Astuce de commentaire 


On ne peut pas mettre un commentaire sur la même ligne qu’une 
instruction DATA, car ce commentaire serait interprété comme une 
chaîne de caractères appartenant à cette même instruction DATA. 
C'est ennuyeux, car cela oblige à une répartition inesthétique des 
commentaires. Pour éviter cela, on peut ’ruser’, et mettre un com- 
mentaire dans l'instruction DATA comme une chaîne alpha 
numérique appartenant à l'instruction DATA. Au niveau technique de 
programmation, c’est une horreur, mais c’est quand même bien plus 
lisible. La routine de lecture des DATA lit la chaîne de caractère du 
commentaire, mais ne doit surtout pas en tenir compte. 


1 KKKKKKKKARAARAREREKREEEERERRARARAREAAREEX 


! * DEFINITION LIEU AVEC COMMENTAIRE * 
LOKKKKKHRRRRRAKRAKERKEKKERRRRARRARÉARRRAEREXEX 

DATA SALLE.BIN 

DATA Vous vous trouvez dans une grande salle 
DATA éclairée par d'immenses torches en métal. 
DATA La seule issue visible est une gigantesque 
DATA porte en bronze. 
DATA * 

DATA 30,40,100,35,7,7,1, 
DATA 100,40,30,50,2,1,2, 
DATA -1 


} EXAMEN DES TORCHES 
| ALLER DANS COULOIR - 


Toutes les définitions de zone du programme doivent avoir un com- 
mentaire de ce type. Attention : ce n’est pas un véritable commentai- 
re, et il faut toujours avoir le caractère ? entre la fin de la ligne et le 
début du commentaire. S’il manque un seul commentaire, la routine 
de lecture des lieux va afficher une erreur de DATA. 


Codage des images 


Les images sont des blocs graphiques de 308x80 pixels. Elles doivent 
être dessinées avec un logiciel de dessin style Degas Elite, Une fois les 
images dessinées, elles seront converties dans un format binaire utili- 
sable par le programme de jeu. Cette conversion est faite par le pro- 
gramme CONV IMG. 

La conversion se fait en écrivant dans des lignes de DATA le nom des 
images Degas Elite, la position des dessins sur les images, et le nom 
des fichiers binaires à générer. 

Ces fichiers contiennent la palette de couleur de l’image. Cela per- 
met d’avoir des images avec diverses palettes. Le programme de jeu 
gère automatiquement les bonnes palettes. 


LOKAKKRKKAKRERAKERREERRKERRERRRRRRRRERERRAARARARARAEAUK 


! x EXEMPLE DE CONVERSION DEGAS/ELITE => BINAIRE * 
RAR AR ARRETE CREED AE DORE A OR ACHAT 
DATA VILLE.PIl 

DATA VILLE.BIN 

DATA 6,28 
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Cet exemple correspond à la conversion de l’image stockée à la posi- 
tion (6,28) de l’image portant lé nom de VILLE.PI1 en un fichier bi- 
naire de nom VILLE :BIN. Les fichiers binaires ainsi générés font une 
taille de 12842 octets. 


Générateur d'images Degas Elite 


Etant donné qu’il est assez difficile d'insérer des images ou de longs 
fichiers binaires dans un article, j'ai écrit un programme supplémen- 
taire, Ce petit programme, appelé GEN_IMGS, vous générera des ima- 
ges Degas elite. Elles devront être converties par CONV: IMG pour vous 
donner les fichiers graphiques indispensables au programme de 
démonstration. La séquence de travail est donc: exécution de 
GEN_ IMGS, exécution de CONV_IMG, puis exécution de DEMO JEU. 


Dossier technique 


Le programme a été écrit en GÆA BASIC 3.0. Sa structure est clas- 
sique. On y trouve les différents tableaux contenant les informations 
de jeu, des routines système, un module d’initialisation et des rou- 
tines spécifiques au programme. 


Les données du programme 


Les informations du programme sont stockées dans des tableaux de 
données. Ces derniers sont initialisés à partir des zones de DATA par 
les routines d’initialisation. Les indices des tableaux commencent à 1 
au lieu de O grâce à l’instruction OPTION BASE 1 placé au début du 
programme. 

Le tableau message$() contient les divers messages. Le tableau dia- 
logues$() contient le texte des dialogues. Le tableau image$() 
contient le nom des images associés aux différents lieux. Le tableau 
descri$() contient les descriptions des lieux. 

Le tableau zones%() sert à mémoriser les caractéristiques des zones 
de clics du jeu. Il y a 7 données par zone de clic; ce tableau a donc 
deux dimensions (DIM zones#%[1000,7]). 


Codage de la zone 1n%: : 


- zones#(n%,1) = Position X; 

- zones%(n#,2) = Position Y; 

- zones#(n%,3) = Largeur zone (tx); 
- zones#(n%,4) = Hauteur zone (ty); 
- zones#(n%,5) = Forme de souris; 
- zones%(n%,6) = Numéro action; 

- zones%(n%,7) = Paramètre action; 


Les zones sont enregistrées les unes après les autres dans le tableau 
zones%. Le tableau lieux%() sert à associer les zones aux lieux. La 
technique de codage est la suivante : 


- lieux%(n%,1) 
- lieux%(n%,2) 


Numéro de la première zone du lieu n% 
Numéro de là dernière zone du lieu n% 


La variable sortie% contient la condition d’arrèt du programme: El- 
le contient habituellement 0, mais si son contenu e à 1, le pro- 

, pass P 
gramme s'arrête, 


Les routines systèmes 


Les routines système sont des procédures qui permettent de gérer di- 
vers petits problèmes qui se posent tout le temps au programmeur 
(effacement de l'écran avec une couleur particulière, affichage d’un 
rectangle graphique, dessin d’un cadre, attente d’un clic souris, etc..). 
Avoir une bonne bibliothèque de fonctions système permet de réali- 
ser un gain de temps appréciable dans l'écriture de nouveaux pro- 
grammes. 

La routine de formatage de texte est une routine système comme les 
autres, mais elle nécessite quelques explications. Elle permet de 
découper un texte quelconque en lignes de textes formatées en res- 
pectant les espaces. Les mots ne sont pas coupés à la ligne comme 
avec un affichage classique (PRINT), et restent donc entiers. 


Les routines d'initialisation 


Les routines d’initialisation lisent les paramètres du jeu stockés en 
DATA, et les mettent dans les divers tableaux de données. Ces rou- 
tines sont @init messages, @init dialogues, @init souris. ét 
Ginit lieux. 

La routine @aff ecran est aussi une routine d’initialisation, mais au 
lieu de préparer les données du programme, elle prépare l'écran de 
jeu qui sera utilisé pendant toute la durée d’exécution du programme. 


Les routines de gestion de jeu 


La procédure @forme souris(n%) modifie la forme de la souris. 
Avec n%=0; la souris a sa forme habituelle de flèche. Avec n#%<>0; la 
souris prend la forme mémorisée dans la variable souris$ (n#). 

La procédure @att move souris attend un changement de position 
de la souris, ou un clic-souris (changement d'état). 

La fonction @tst_zone permet de savoir si une position (x, y) est 
comprise dans un rectangle graphique (px,py,tx, ty). C’est l’une 
des fonctions les plus utiles du logiciel. 

La fonction @cherche zone permet de savoir si une position (x,y) 
de l'écran correspond à l’une des zones de clic du lieu courant. Elle 
utilise la fonction @tst_ zone. 

La fonction @cherche option permet de savoir si une position 
(x,y) de l'écran correspond à l’une des 4 options du jeu (infos, sau- 
ver, lecture, quitter prg). Elle utilise la fonction @tst zone. 

La procédure Gatt zone clic est la routine la plus importante du 
jeu. C’est elle qui s'occupe de changer la forme de la souris en fonc- 
tion de sa position, et de contrôler si le joueur clique dans une des 
zones de l'écran. À chaque changement de position de la souris, elle 
teste si la souris est sur une zone de clic. 

En cas de réponse positive, elle s'occupe de gérer la forme de souris 
visualisant l’action exécutable à cet endroit de l'écran. Elle utilise les 
routines @att move souris, @cherche zone, @cherche option, 
et @forme souris. 

La procédure @exec option permet d’exécuter l’une des 4 options 
du jeu. Elle utilise l'instruction SELECT/CASE pour lancer l'exécution 
de la routine choisie. 

La procédure @exec action permet d'exécuter l’une des nombreux 
actions du jeu (déplacement, examen, dialogue, combat, achat, etc.) 
Chaque action a un numéro. L’'instruction SELECT/CASE permet de 
lancer l’exécution de la procédure correspondant à l’action choisie. 
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La routine principale du jeu est la procédure @gestion jeu. Elle at- 
tend que l’utilisateur clique sur une zone quelconque, puis appelle la 
routine qui s'occupe d'exécuter l’action choisie. Elle boucle sur el- 
le-même tant que la variable sortie* contient O. 


Les options systèmes 


Ces options sont des fonctions que le joueur peut utiliser en perma- 
nence. Il y a la fonction info, la sauvegarde du jeu, la lecture d’une 
sauvegarde, et une option permettant de sortir du jeu avec demande 
de confirmation, 


Routine d'information 


La procédure Coption info affiche une page d'information à l’in- 
tention du joueur. Cette page contient le nom du programme, le ty- 
pe de système de développement utilisé (GFA Basic 3.5 en l’occur- 
rence), et les copyrights du programme (l’auteur et Atari Magazine). 


U 


Routine de sauvegarde 


La procédure option sauver sauve sur disquette l’état du jeu. Cet 
état est très simplifié puisqu'il ne comprend qu’une seule variable : 
le lieu courant. 


Routine de lecture 


La procédure @option lecture lit les données sauvegardées par 
Goption sauver Une fois le numéro du lieu courant chargé en mé- 
moire, elle utilise la routine @deplacement pour positionner le jeu 
dans son nouvel état. 


Routine de sortie du programme 


La procédure Goption sortie affiche une petite boîte de dialogue 
avec un texte (‘Voulez-vous quitter ce programme ?'), et deux 
options ("OUI ' et 'NON'). Si le joueur clique sur l'option ‘NON', il 
ne se passe rien et le programme quitte la routine. Si le joueur clique 
sur l’option "OUI", le programme mét 1 dans la variable sortiex 
avant de quitter la routine. 


Les routines d'actions 


Ces routines correspondent aux actions exécutables par le joueur. 
Certaines d’entre elles modifient les variables du programme, 
d’autres affichent des informations à l'écran, d’autres encore peuvent 
modifier l'état du joueur (sa position dans le jeu par exemple). 

Ces routines ont besoin d’un paramètre décrivant la nature de la 
tâche à effectuer. 


Routine de déplacement 


La procédure @deplacement(lieu%) change la position du joueur. 
C’est une routine importante, puisque l’essence même d’un jeu d’a- 
venture est l'exploration et la découverte de nouveaux endroits. Le 
changement de lieu se fait en modifiant la variable lieu courant, 
et en affichant l’image et le texte correspondant à ce nouveau lieu. 


Routine d'examen 


La procédure Gaffichage message(num%) affiche le message 
numéro num%. Le texte est stocké dans le tableau message$(). Ce 
texte est formaté avec 36 caractères par ligne avec la routine @format 
avant d’être affiché à l'écran. Une fois le message affiché, le program- 
me affiche une petite boîte de dialogue avec le message ‘OK’ Le 
joueur doit cliquer dans cette boîte pour quitter l'option ‘EXAMEN'. 


Routine de conversation 


La procédure @parler personnage(perso“) affiche le texte du dia- 
logue numéro perso%. Ce texte est sauvegardé dans le tableau dia- 
1ogues$(). Une fois le texte affiché, le programme attend que le 
joueur clique dans une petite boîte OK’ qu’il dessine après le texte. 
Ce système de dialogue est simple. Il n’y a pas de véritable conversa- 
tion. Beaucoup d’anciens jeux utilisent ce principe, mais il est pos- 
sible de faire mieux et de simuler (du moins partiellement) une véri- 
table conversation. 


1 XKXKKKKEKKKKKKKKKRARKRRRERAKRARARRARAERAKEARREARARRARKERXE 
! # CONVERSION IMAGES DEGAS ELITE => FORMAT BINAIRE * 

1 KKKKKKKKKKAKKKRKKRKKRKRRKERRERARAARARERKRARRERERAAARAAREEEX 
LL 'AKKKXKKAKEKXKKAREXAKAKAEKRERERRRRXX EX 

‘* Programme CONV IMG.GFA  * 

LD HKRKKKKKKKXKKKEKRKRAKKKEKKKKRRREXE 

" x  (C) 1990 Patrick Leclercq * 

! x (C) 1990 ATARI MAGAZINE se 


ll ORARAKRARARARAKRARARRRARRRERARREARX 


» 


RESERVE 50000 
HIDEM 
Ggen_imgs 
SHOWM 

END 


L'OKKKKKKKKKKKKKKKEKKKEKREKKRKARERAE AREA ERIK 


* CHARGEMENT D'UNE IMAGE DEGAS ELITE * 


LOKKKKKKKKKKKKKHKKKRKARKEREKREAKKRRRRRRERRERERRE 


DL O'AAKAKAKAAKKAAKAAKEREAAAAKKREERARRRREREERERRERERERARERERE 


! * La palette est stockée dans la variable globale* 

! # palette$. Cette variable est réutilisée par la * 

* procédure @sauve image(). # 

L HAKKAKAAKARAAARARRAEKKAKEKKARAEEEREEKERKRREREKRRERERXK 

PROCEDURE load degas (nom$) | 
palette$=SPACE$(32) ! Réservation mémoire 32 octets 
OPEN “i",#99,nom$ ! Ouverture Fichier nomÿ 
SEEK #99,2 1! ON SAUTE LES DEUX PREMIERS OCTETS 
BGET #99,VARPTR(palette$) ,32 ! Lecture palette img 
VOID XBI0S(6,L:VARPTR(palette$)) ! Mise à jour palette 
BGET #99,XBI10S(2),32000 ! LECTURE IMAGE SUR ECRAN 
CLOSE #99 ! Fermeture du fichier 

RETURN 
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or oo 


te 





LOKKKRKEREKRRRARRÉRARRERRRERERARARRALARERA AIR 


! x SAUVEGARDE D'UNE IMAGE SUR DISQUETTE * 


LOKKKKREKRRARAEERRÉRRRRRERARRRARAARERRARARERREE 


PROCEDURE sauve image(nom_image$) 


LOCAL adr% 
taille#=LEN(images$) 

OPEN "o",#l,nom image$ 

BPUT #1,VARPTR(palette$) ,32 
BPUT #1,VARPTR(taille%),4 


| Taille image 

! Ouverture fichier 

! Sauv. Palette image 
! Sauv. Taille image 


BPUT #1,VARPTR(image$),taille%! Sauv. Zone mémoire img 
CLOSE #1 ! Fermeture fichier 
RETURN 


' RTE PEAR ele RE EE 
! x BOUCLE DE LECTURE DES IMAGES * 
DRAM IR ARR RE RON RAR ARR RER RIRE 


D OLAKÉAKRERÉRRREAKRRERAEEÉRRRERERRRRRERERRRRRAEERERARAEREE 


‘ x L'image lue est stockée dans la variable globale * 
!. * jmage$. ee 
LORAKRRRRREREERKRERRRRÉRRRRRREEEERRRRERRERÉEERÉERRERERKREX 
PROCEDURE gen_imgs 

LOCAL nom degas$ 

LOCAL nom fichier$ 

LOCAL px%,py* 

LOCAL px2%,py2% 


RESTORE donnees imgs ! Fixe pointeur DATA 
DO 


READ nom degas$ ! Lecture nom image DEGAS 
! Test si Fin de données 
! Lecture nom fichier. img 


EXIT IF nom degas$="*FIN"  ! 
READ nom fichier$ ! 
READ px%,py#% $ ! Lecture position image 
px2%=px%+307 ! Calcul px2% 
py2%=py#t79 ! Calcul py2% 


@load degas(nom degas$) ! 
GET .px%,py%,px2%,py2%,image$! 


Chargement image DEGAS 
Lecture image 
Sauv. image sur disque 


@sauve image(nom fichier$) ! 
LOOP 
RETURN 





LU OKRRAAKKEKAKEREREEERRRRRERARARAARERRERERARX 


! 4 STOCKAGE DES COORDONNEES DES IMAGES * 
LOHAKKKKAKKERRREREREERRERARRAARERERKRRRRERRERE 
* DATA Nom image DEGAS ELITE 

‘ DATA Nom fichier binaire 

* DATA px, py 

! DATA *FIN 


donnees. imgs: 
DATA VILLE.PI1 
DATA VILLE.BIN 
DATA 6,28 


DATA TAVERNE.PI1 
DATA TAVERNE.BIN 
DATA 6,28 

DATA MARCHE1.PI1 
DATA MARCHE1.BIN 
DATA 6,28 

DATA MARCHE2.PI1 
DATA MARCHE2.BIN 
DATA 6,28 

DATA GARDE.PI1 
DATA GARDE.BIN 
DATA 6,28 

DATA PRISON.PI1 
DATA PRISON.BIN 
DATA 6,28 





D OKXKAKKKKAKRKRARKKARERERERAAARAAAEREKRE 


* INDICATEUR DE FIN D'IMAGES * 


LOXKKKKKKRERRRRARARRRARERERKRAAEEKRRR 


DATA *FIN 


1 KKKKKARERAKKKERERERRAREARERERERRERELAARRARRÉKAIE 
! %  GENERATEUR D'IMAGES POUR DEMONSTRATION JEU * 
LL OHRRRERKERERRERRRRRAREREREERÉRERARRÉERRRRERRERARERE 
1 RARERR RAR AR MRTÉRE LEE EEE ER ERAANÉ 
er Programme GEN_IMGS.GFA + 
LOXKKKKKEKKRRRRKARKRRERRKRRERRÉRRAREÉ 
‘ x (C) 1990 Patrick Leclercq * 
! x (C) 1990 Atari Magazine x 


VOXXKAKKKKKRÉRKKKRRARERKARRRRÉARRÉAEEÉE 


RESERVE 10000 
@def couleurs 
@gen images 
END 





D ORKAAKKKERRERERERERRRERÉRRRRRERERERRARÉRARRRRERARE 


! *. DEFINITION PALETTE DE COULEUR DES IMAGES * 
1 OKKÉKKKKÉAKRÉRRARERERREREARERRARERERRÉRERERAEARAREAX 
PROCEDURE def couleurs 

LOCAL i% 

LOCAL c% 

RESTORE couleurs 

FOR i%=0 TO 15 


READ c% 
VOID XBI0S(7,1%,c%) 
NEXT i% 
RETURN 
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L'OXKKKKKKARARÉAKRRALAEERREEEERRAARERERAAREE 


! x PALETTE DE COULEURS DES IMAGES * 

1: RAROKOKORKOK RO ROR HORUR ÉUROR MORORO OR RAR RO ER ARR RUE KE 
couleurs: 

DATA $000,$700,$070,$770,$007,$707,$077,$555 
DATA $333,$733,$373,$773,$337,$737,$377,$777 


LOKRKRKKAKEREKAKEKRERERARAERERRERRERÉRE 

" * AFFICHAGE D'UN RECTANGLE PLEIN * 

LORARKKKNKRAXRRRRREREARKARERRRERREREREE 

PROCEDURE rect(px%,py%,tx%,ty%,c%) 
LOCAL px2%,py2% 


px2#%=pxé+txe—1 

py2#=py#+ty#-1 

DEFFILL c% 

PBOX px%,py%,px2%,py2% 
RETURN 


‘ 
1 





D OKKKKEKKRARRRERRRAARRERREREREERRARAARRERRRERRREAREX 


! * SAUVEGARDE D'UNE IMAGE AU FORMAT DEGAS ELITE * 
L'ORERKRKKRRAREREREÉEÉRÉRELÉRERARARERERERERELRARAARAEE 
PROCEDURE save degas (nom$) 

LOCAL palettes 

LOCAL resolution$ 

LOCAL adr pals 

LOCAL adr resol% 

LOCAL adr% 

LOCAL i% 


palette$=SPACES (32) ! MEMOIRE POUR PALETTE 
resolution$=SPACES$ (2) | MEMOIRE POUR RESOL. 
adr pal%=VARPTR(palette$) ! ADRESSE ZONE PALETTE 
adr resol%=VARPTR(resolution$)! ADRESSE ZONE RESOL. 


INT{adr resol%}=XBI0S(4) ! LECTURE RESOL. ECRAN 

adr#=adr pal% 

FOR i%=0 TO 15 ! LECTURE PALETTE COUL. 
INT{adr%}=XB10S(7,i%,-1)! LECTURE COULEUR i% 
ADD adr%,2 

NEXT 1% 

OPEN ‘"o",#99,nom$ | OUVERTURE FICHIER 

BPUT #99,adr resol#,2 | ECRITURE RESOLUTION 

BPUT #99,adr pal%,32 ! ECRITURE PALETTE COUL. 

! 
! 


BPUT #99,XBI0S(2) ,32000 ECRITURE DE L'IMAGE 
CLOSE #99 FERMETURE FICHIER 
RETURN 


LOKKKKKKHARKKEREAXERRARERKRAARAREE 
! * DESSIN DES ZONES DE CLIC * 
l OKXKKKKKKAREKKKERAKAKNERKRAKREKRERRERRE 
PROCEDURE dessin zones 

LOCAL px, py%,tx%, ty# 


DO 
READ px# 
EXIT IF px#%=-1 
READ py#,tx%, ty% 
@rect(px%,py%,tx%,ty#,14) ! Dessin zone de clic 
LOOP 
RETURN 


1 Test si fin de zones 


' PROPRES TETE STILL LIILLILLLIS TS 
1! * GENERATION DES IMAGES * 
D ORXKKKKKKKRRRARAKERKXKRERERKRERRXE 
PROCEDURE gen images 

LOCAL nom_image$ 


RESTORE donnees 
DO 
READ nom image 
EXIT IF nom image$="*FIN" 
CLS 
@rect(6,28,308,80,5) 
@dessin zones 
@save degas(nom image$) 
LOOP 
RETURN 
1 


! Dessin fond image 
| Dessin des zones de clic 


t 
1 OXKXKKKKKRAKAKAKERXXKRREXE 


! * DONNEES DES IMAGES * 


VO KKKKKARAAKKKEXERKAKKRARKAAE 


donnees: 

DATA VILLE.PI1 
DATA 16,48,60,40 
DATA 86,38,60,60 
DATA 156,48,60,40 
DATA 226,38,8,60 
DATA 244,48,60,40 
DATA —1 


DATA TAVERNE.PI1 
DATA 38,53,20,30 
DATA 90,78,80,20 
DATA 202,78,80,20 
DATA 90,38,60,25 
DATA 202,38,60,25 
DATA —1 


DATA MARCHEI.PII 

DATA 20,91,280,15 
DATA 22,33,62,50 

DATA 100,33,42,50 
DATA 158,33,82,50 
DATA 256,33,42,50 
DATA -1 

DATA MARCHE2.PI1 

DATA 20,91,280,15 
DATA 53,33,40,50 
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DATA 140,33,40,50 
DATA 227,33,40,50 
DATA -1 

DATA GARDE.PI1 
DATA 53,33,40,50 
DATA 140,33,40,50 
DATA 227,33,40,50 
DATA —1 
a ———— 
DATA PRISON.PI1 
DATA 34,74,40,30 
DATA 34,34,42,30 
DATA 104,34,42,50 
DATA 174,34,42,50 
DATA 244,34,42,50 
DATA -1 

DATA *FIN 


LV OKKHKKKKKKKERKÉKERKARARRRKRKREARARAREARX 


LU '%X * 
Are JEU D'AVENTURE GRAPHIQUE Hé 
L%x * 


| KHAKKKKKKKKKERKKRKERERERKKERERERRRÉRERÉ 


! * Programmation GFA BASIC 3.5 x 
Ü x Testé sur 1040 STF & 1040 STE * 
! x (C) 1990 Patrick Leclercq E 
‘ x (C) 1990 Atari Magazine Fe 


1 OKKKKAKEKKRAKAKARRRKRARARARARRRRRARE 





RESERVE 100000 
OPTION BASE 1 
DIM souris$(100) !TABLEAU POUR LES FORMES DE SOURIS 
nb_souris%=0 INOMBRE DE SOURIS DANS TABLEAU souris$ 


IRESERVATION MEMOIRE POUR SYSTEME BASIC 
!INDICES DE TABLEAUX COMMENCANT À 1 


DIM 1ieux%(100,2) ITABLEAU POUR LES LIEUX 

DIM images$(100) !Tableau pour les images de lieux 
DIM descri$(100) !Tableau pour les descript. de lieux 
DIM zones%(1000,7)!Tableau pour les nb de zones par 
lieu 

DIM messages$(100) ! Tableau pour les messages 
nb_messages#=0 

DIM dialogues$(100)! tableau pour les dialogues 

nb dialogues%=0 

! NOMBRE DE LIEUX EN MEMOIRE 

! NOMBRE DE ZONES EN MEMOIRE 


nb_lieux#=0 
nb_zones#=0 
DIM lignes$(20) ! Tableau formatage texte pour 
affichage 

nb lignes%=0 


fond$=SPACE$(32000)! Variable pour mémorisation écran 


! nb de lignes présentes dans ligne$() 
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DEFMOUSE 0 
Ginit_ souris 
Ginit lieux 
Ginit messages 
Ginit dialogues 
lieu courant#=1 


FORME SOURIS = ABEILLE 
INITIALISATION DES FORMES DE SOURIS 
INITIALISATION DES LIEUX 
INITIALISATION DES MESSAGES 
INITIALISATION DES DIALOGUES 


1 


GRAPHMODE (2) MODE D'AFFICHAGE TRANSPARENT 
: POUR AFFICHER LES CARACTERES SUR 


j ; | N'IMPORTE QUEL FOND 


HIDEM ! EFFACEMENT SOURIS 

Qaff ecran ! AFFICHAGE ECRAN DE JEU 
@gestion jeu 1 EXECUTION DU JEU 
DEFMOUSE 0 ! FORME SOURIS = FLECHE 
END ! FIN DU PROGRAMME 


L'KKKEKKKKKKARKKKKREKERÉRAREKRARERKRRÉERE 


Lx * 
! *  ROUTINES SYSTEME DU PROGRAMME * 
1 x * 


LV OKAKKKKKKAKEKEKAKRERERÉERRRAREREAREAREX 


1 OKKKKKKKKKKRKKKRKRKKEKRKEKREREE 
! #  EFFACEMENT DE L'ECRAN * 
L 'HKXKKKXRAAKAKAAKXAKKEKEERRRKÉRÉ 
L'KKKKKKKKKKKKRRAARARKKEKKKKKÉEÉE 
!* c% : couleur de l'écran * 
LOHRRRRRKRERREREERRRERERRÉRRRAËAÉ 
PROCEDURE cils ecran(c%) 
DEFFILL c% 
PBOX 0,0,319,199 
RETURN 


! Couleur rectangle 
! Dessin rectangle 


V1 OXKAAKARAERKERARRRAREARERRRÉRRRE RARE 


! * AFFICHAGE D'UN RECTANGLE PLEIN * 


1 KKKKKEKKERKKKKEKAKEKRARARARERERARERERE 


! * px% : Position x du rectangle  * 
‘x py% : Position y du rectangle  * 
! # tx% : Largeur du rectangle % 
! * ty% : Hauteur du rectangle x 
1 * c% : Couleur du rectangle * 


1 'XKKKAKRÉAKAKKRERARAKRAREAEKRARRKREERKRARER 


PROCEDURE rect(px%,py%,tx%, ty%,c%) 
LOCAL px2%;,py2% 


px2%=px%+tx%-1 

py2%=py%+ty#-1 

DEFFILL c%. 

PBOX px%,py%,px2%,py2% 
RETURN 


! Couleur rectangle 
! Dessin rectangle 


LOKKKKKKKKKKERKREXKKRERARERRERERRREE 
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SR Le 2. 


LATE, à 


RER ee 


no À. "Te 














! # AFFICHAGE D'UN CADRE VIDE * 


L OXKKKKKEKRARRKRAKEKRÉELEREEEEAEAR ARE 


L'OKKAKKKXKKRÉEREERKRRERERERKEAEAREREEARERERX 


! px% : Position x du cadre # 
HAEUADYEe : Position y du cadre S 
RATE : Largeur du cadre * 
MERS : Hauteur du cadre £ 
! x  fond* : Couleur fond du cadre  * 
Lx * 


contour% : Couleur bords du cadre 

LOKKAKKKKKKKEKERKEXEERRERERKRARERERARERERERE 

PROCEDURE cadre(px%,py#,tx%,ty%, fond, contour“) 
LOCAL px2%,py2% 


px2%=px#+tx#—1 

py2%=py#+ty#-1 

DEFFILL fond# | Couleur fond 

PBOX px%,py%,px2%,py2% ! Dessin fond 

COLOR contour% ! Couleur contour 

BOX px%,py%,px2%,py2%  ! Dessin contour 
RETURN 


# 


LOKKAKKKHKKRKAKRKERARARARERERERAREEE 


! * TEST D'UNE ZONE GRAPHIQUE * 


LOKKKEKKKKKKEKEKREERKKREKARKEREREAX 


RARR RON OR ROMA HORREUR OMR NOR ER RER ARR AR RAR RAM RRAE H Re 


!* Cette fonction teste si la position (x%,y#) 
est comprise dans la zone graphique 
(px%,py%,tx%,ty%). Si la position est comprise 
dans la zone, @tst zone renvoit 1. 
Dans le cas contraire, elle renvoit 0. 
L'OXKKKÉRKKRKKERREEXEREERERKERERERRRAKARAKRAKKRERERRRXERE 
FUNCTION tst zone(x%,y%,px%,py#,tx%, ty#) 

LOCAL px2%,py2% 

LOCAL r% 


LE RE, SES à 


px2%=px%+tx%-1l 
py2%=py#+ty#-1 
r#%=0 
IF (x%>=px%) AND (x%<=px2%) 
IF (ÿ%>=py#) AND (y#<=py2%) 
r#=1 
ENDIF 
ENDIF 
RETURN r# 
ENDFUNC 


D RRRARR AR AIR AR RER NERO RC RATE 
! *  ATTENTE CLIC DANS UNE ZONE * 
1 HR RH RER RIRE A ARRETE 


L'OXAKKERAEAREXERERERANKHERERRAREARERERRERERREERARERERRE RÉ 


‘kCette procédure attend que l'utilisateur clique dans* 
‘*une zone précise de l'écran. € 
LOXKKKKAKKKAEREERERRRERERRERRRRARRLEREERERREREREERRREEERÉ 
PROCEDURE wait_zone(px%,py%,tx%, ty#) 

LOCAL xm%, ym* 


DO 
@att clic(xm%,ym*) 
EXIT IF @tst zone(xm%,ym%,px%, py%3 tX%, ty%)=1 
LOOP 
RETURN 





VO LKERKREKEEEEREREERAALERRAERERERARKARRERERERRERRAA ARR 


‘ *  ATTENTE CLIC SOURIS AVEC FOURNITURE ETAT SOURIS  * 
LU OLKRRRAERERKRRERKERREREREERERALRERRRRRAEERERARANARRAMÉRK 
! x Cette procédure attend que le joueur clique avec * 

! * la souris. Elle fournit la position (x,y) de clic* 

‘ + à la procédure appellante. Elle ne rend la main * 

! # que lorsque le joueur à relaché le clic souris. * 
HR RE HRRO NE Re ee ARR ER OR Re A TR AR ARR OR ROR AOROR RH 
PROCEDURE att_clic(VAR xm%,ym“) 

LOCAL km 


DO 
MOUSE xm%,ym, km 
EXIT IF km%<>0 
LOOP 
DO 
EXIT IF MOUSEK=0 
LOOP 
RETURN ; FT 


L'Att clic souris 


1 Att arrêt clic 


D RAR ARR OR RIRE 
‘ x ATITENTE CLIC SOURIS, * 
DR RIRE HOUR ARR ARE ROK 


D OXKKKKKXKEKRRRRRRRARRERAXELXERERRERAANERAEEREREREARARARE 


‘*Cette procédure attend que le joueur ait cliqué. Elle* 
‘*ne rend la main à la procédure appelante que lorsque * 
‘xle clic a cessé. À la différence de @att clic, cette * 
‘procédure ne donne pas la position de clic. fè 


DO XKRKR RER KR RIRE RRORR RH RH A ARR KR RORR AR  RRRR A RAR RER 


PROCEDURE wait clic 


REPEAT 

UNTIL MOUSEK ! Attente clic souris 

REPEAT 

UNTIL MOUSEK=0 ! Attente fin de clic 
RETURN 


LL 'XKKAKKAKRKKKKERKKRERERARARARRARERE 
‘ # ATTENTE ARRET CLIC SOURIS * 
1 OXRÉKKKKAKEKKERARAKRARARKERAERERERX 
PROCEDURE attOclic 

REPEAT 

UNTIL. MOUSEK=0 
RETURN 


1 
' 
| KXAKKKKKAKEXKKKKRARARAAEX 


# * COULEUR DU TEXTE * 


1 OXKkKKKKKKRAKARARXEKRAREX 


PROCEDURE texte color(c#) 
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DEFTEXT c% 
RETURN 


—_—————————————— 


L'OXKKKAKKKNKKRÉEXKRERRRRRRRAERRERRRRRARAREKE 


‘x AFFICHAGE TEXTE EN CARACTERES GRAS * 
L'KEKEAKKEEARERAARERERRERERERRREREXEREEÈKE 
PROCEDURE texte gras 

DEFTEXT ,1 
RETURN 


——_—_—_—_—_—_—_—__—_———————__——————…—…—…—_…——_———— 


1 JAH HD ORCH  RERER R RRRR ROK 


* AFFICHAGE TEXTE EN CARACTERES ITALIQUES  * 
D ROM RORORORORORE ROUE HEADER RER AREA RER RARE OR ARE 
PROCEDURE texte italique 

DEFTEXT ,4 
RETURN 





LOKKKKKKKRKKRERKKRRERERERRRRRRRKERRERRERRÉREEX 


! x AFFICHAGE TEXTE EN CARACTERES NORMAUX  * 
LV OKKKKKKKKKEKRARERÉEERERERERAARERERRRRER RER RER E 
PROCEDURE texte normal 

DEFTEXT ,0 
RETURN 





D OXKKKAKÉKKKÉEEREXKERÉERRERRKERERREARRERAREX 


"+ AFFICHAGE TEXTE EN CAR. BRILLANTS * 
L OKAKKKKÉRERKRARERERERKKERERERAR ER ERERERRE 
PROCEDURE texte brillant 

DEFTEXT ,2 
RETURN 


—_——————_——_—_—_—_—_…"_— — …_… …" — —————————— 


LORIE ROR ROMA KR A RUR RO ROR A RERO RAR OR ARR RO RO AURA TE 


! * AFFICHAGE TEXTE EN CAR. SOULIGNES * 
LOKAKKKKAKKKKEKKRRERRRRRARARRRRARARERÉEAER 
PROCEDURE texte souligne 

DEFTEXT ,8 
RETURN 


—_—————————_— 


DR RORR OR MORE ROROR ROUE RE RIRE OR RARE EUR 


* AFFICHAGE TEXTE EN CAR. ENCADRES * 
LOKKKKKKKÉAKERKRKRERRERERRREERARREREERERA RÉ 
PROCEDURE texte encadre 

DEFTEXT ,16 





* niveau des mots. 

* PARAMETRES ROUTINE : 

* 

* m$ : texte à formater 


SORTIE ROUTINE : 


Æ #4 Où OÙ #4 


tableau lignes$(). 


taille : nombremaximum de lettres par ligne 


+ À w #  # * 


Les lignes sont stockées dans le tableau lignes$().* 
La variable nb lignes* contient le nb de lignes. du * 


* 


RRR RE RRR HORDE RCE RER DA ARE CRE RER HR ARR 
F . 


PROCEDURE format (m$,tailles) 


LOCAL tampon$ 
LOCAL p% 
LOCAL c$ 
LOCAL ligne$ 


nb lignes%=0 
tamponÿ="" 
ligne$="" 


FOR p#%=1 TO 20 


lignes$(p%)="" 
NEXT p% 


LOKXKKKKKKKERRRERERRERAEREHK 
" * BOUCLE DE DECOUPAGE * 
1 KKKKAKKKERERRRRAKERÉAREERRXE 
FOR p#%=1 TO LEN(m$) 

c$=MID$ (m$,p#,1) 


IF c$<>" 
tampon$=tampon$+c$ 
ENDIF 
IF c$=" " 
IF LEN(Tigne$)+1+LEN(tampon$)<=taille 
IF ligne$="" 
ligne$=tampon$ 
tampon$="" 
ELSE 
Tigne$=ligne$+" "“+tampon$ 
tampon$="" 
ENDIF 
ELSE 
INC nb lignes 
lignes$(nb lignes*)=ligne$ 
ligne$="" 
IF tampon$<>"" 


RETURN tampon$=tampon$+" " 
' ENDIF 

! ENDIF . 

LL OXKKKKKRAKEKEREREREXRERARAREEX ENDIF 

! * FORMATAGE D'UN TEXTE * ; 

LV OXKKKAKARRKKEKRKRKRREARKKKRRRE NEXT p% 
LOLKELERRRRRÉRERERRERERAREREREEERERREREREEERRAKERÉRRAREEAEX 3 

‘ X Cette routine découpe un texte en plusieurs lignes * L' ERSRS ERERENNEN EEE 

‘ * pour un affichage propre. Le découpage se fait au * ! *_ FIN DU DECOUPAGE * 


ATARI MAGAZINE 60 BEST-OF GFA BASIC 





1 OKKKKKKKKKKKKKEKRKRKEREX 


IF (ligne$="") AND (tampon$<>"") 
INC nb lignes 
lignes$(nb lignes*)=tampon$ , 
tampon$="" 
ENDIF 
IF (tampon$<>"") AND (ligne$<>"") 
IF LEN(ligne$)+1+LEN(tampon$)<=taillex 
INC nb lignes% 
lignes$(nb lignes%)=ligne$+" "+tampon$ 
‘ligne$="" 
tampon$="" 
ELSE 
INC nb lignes 
lignes$(nb lignes#)=ligne$ 
ligne$="" 
INC nb lignes“ 
lignes$(nb lignes%)=tampon$ 
tampon$="" 
ENDIF 
ENDIF 


RETURN 


LR RIRE RO RARE AIRE RATER 
! # AFFICHAGE DU TEXTE FORMATE * 
DROIT RAR RIRE RER 


LOKKRKKKKKKRERKKAKERERKERRERERAKERAKKERRKREERARRRRERERREX 


! * Cette routine affiche le texte mis en forme par la * 
! x routine @format à partir de la position graphique * 
! x (pxk,py). ? 
D OKKkKKKEKRKÉRRRKKERERERÉERRERKRRRREREEKEREERERRRAE RER ARAKE 
PROCEDURE aff format(px%,py#) 
LOCAL y% 
LOCAL 1% 
; 
YÉ=py 
FOR 1%=1 TO nb lignes 
TEXT px%,y%,lignes$(1#) 
ADD y#,9 
NEXT 1% 
RETURN 


! Pos Y pour début affichage 
! Boucle affichage message 
! Affichage texte message 

! Passage ligne suivante 





LOKKAKKKKKKEKKKERERERRERRRERREARREAREXE 

‘ %  MEMORISATION DE L'ECRAN * 
LOXKKKKKXKKKERREAAELKRRERRERERRERE 

0 KRKKKKRRREKERKKEREKKEERKEREREEERERERRRERLEXERKRERERRRRRRAX 
! xL'écran est mémorisé dans la variable globale fond$* 
LV 'HÉAREKKEKERERAEERENERRRERERRRERXARÉEREREERERERERARAREX 
PROCEDURE memorisation ecran 

SGET fond$ 


‘RETURN 


L KKKKKKKKKKREKRKRARARERERKREREREX 


! * RESTAURATION DE L'ECRAN * 


LOHKKKKEKKKKKKEXRRREREKRARERRAREX 


DO HORROR OR RRRU ARR HRK OMR RE OR RE ARR RE A ARR HR ARR ARR 


‘ * L'écran à restaurer doit d'abord avoir été stocké * 
‘ * dans la variable globale fond$ par la procédure  * 
! * @memorisation ecran. x 
1 JR RIRE HO RO ER RE HRK RER RH RCA RER OR ROR 
PROCEDURE restauration ecran 

SPUT fond$ 
RETURN 





VOEKKEKKKKEEKRÉRAEREREERRERRRERERERERRRRAE 


! x  ROUTINES SPECIFIQUES AU PROGRAMME * 


D OLKRKKKKKRRÉREEEREERARERERAEERKERERAERRERX 


——__— 


LOKREKKKKERKRRÉEARRRRAREREEARRAERE 


‘ 4  INITIALISATION DES LIEUX * 


VO XKKKKERAKEKEEERERRRERRARERERERX 


DORE RO RROR MORE HORREUR UE ARR AAC RAA RER KR OR RAAROR 


1‘ x Cette routine lit les données stockées en DATA, et * 


! * Jes mémorise dans les tableaux correspondants Le 
1 x (jmages$(), descri$(), zones#(), lieux%()). x 


DL OHRERKERERRRREREREERERERERÉRÉRRRÉRÉRARNRARERRRRREÉERARHÉE 


PROCEDURE init lieux 
LOCAL px% 
LOCAL img$ 
LOCAL mess$ 


zone libre%=1 
nb_lieux#=0 
nb_zones#=0 
RESTORE lieux 
DO 
READ - img$ 
EXIT IF img$="*FIN" 
INC nb lieux* 
images$(nb_T1ieux%)=img$ 
DO 
READ mess$ 
EXIT IF mess$="*" 
mess$=" "+mess$ 
descri$(nb lieux*)=descri$(nb_1ieux%)+mess$ 
LOOP 
lieux#(nb lieux%,1)=zone libre“ 
DO 
READ px% 
EXIT IF px%=-1 
* zones#(zone libre%,1)=px% 
READ zones%(zone libre%,2) 
READ zones#(zone libre%,3) 
READ zones%(zone libre%,4) 
READ zones%(zone libre%,5) 
READ zones%(zone libre%,6) 
READ zones%(zone libre%,7) 
READ rem$ 
INC nb_zones* 
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INC zone libre 


LOOP 
lieux%(nb lieux%,2)=nb_zones* 
LOOP 


RETURN 


——— _—————————— 


ARR HR OH HEAR ER CR A RARE 
* INITIALISATION DES MESSAGES * 
ARRROR RER AREA HER REA 


PAPE TETLILIIIISITILSISSSIL SI LES SSL |.) 


xCette routine lit les messages stockés en DATA, et * 
*les mémorise dans le tableau messages$(). La * 


*Variable nb messages* contient le nb de messages. * 
KAKEKEREERERERERERRRERERRARRARÉRRÉRRRARARR AREA RER RARKE 


PROCEDURE init messages 


LOCAL m$ 
RESTORE messages 
nb _messages+=0 
DO 
READ m$ 
EXIT IF m$="*FIN" 
INC nb messages* 
messages$(nb messages*)=m$ 
DO 
READ m$ 
EXIT IF mÿ="*" 
m$=" "+m$ 
messages$(nb messages#)=messages$ (nb_messages#)+m$ 
LOOP 
LOOP 


RETURN 


ARR ARRETE IR 
* INITIALISATION DES DIALOGUES * 
RH ERREUR AH HR RENE 


RH HR HEADER CID EE RE ER EE ER RER ARR 


*Cette routine lit le texte des dialogues stockés en* 
*DATA, et les mémorise dans le tableau dialogues$().* 
*La variable nb dialogues* contient le nb dedialogues* 
*de dialogues$(). # 


KKKKKKERERERÉRERRRRÉEARREREREÉREKERÉRERAREERARERERAAR 


PROCEDURE init dialogues 


LOCAL mess$ 
LOCAL n% 
L 
RESTORE dialogues 
n%=0 
DO 
READ mess$ 
EXIT IF mess$="*FIN DIALOGUES" 
INC n% 
dialogues$(n%)=mess$ 
DO 
READ mess$ 
EXIT IF mess$="*" 


mess$=" "+mess$ 
dialogues$(n%)=dialogues$(n%) tmess$ 
LOOP 
LOOP 
nb dialogues#=n# 


RETURN 





KKKKKERKERKRKKEKRRERAREREREREREREÉRRE 


* INITIALISATION FORMES DE SOURIS * 


ÉLILÉLILIIILISSISILSLL IIS SSSR SES SE) 


PROCEDURE init souris 


LOCAL v#,f$ 
RESTORE souris 
nb_souris#=0 
DO 6 
READ v% ! Lecture DATA 
EXIT IF v%=-1 Test si fin données 


INC nb souris ! Une nouvelle souris 
F$=MKI$ (v%) | Début données souris 
FOR i%=1 TO 36 ! Début lecture données 
READ v% ! Lecture DATA souris 

! 

! 

! 


F$=F$EMKIS (V4) Mémorisation données souris 


NEXT i% Fin Boucle lecture données 
souris$(nb souris#)=f$! Souris dans souris$() 
LOOP 


RETURN 


RENCONTRE ET EEE 
RRRÉRERRRRE RER ARR ÉRIERRR AR AR A ÉIERE 
* RECHERCHE D'UNE ZONE DE CLIC * 
RIRE RIRE HE IR RO ERE 


DO RRR MORE RERO HR RO ROME RAR OR AR ARR RAR RARE 


*Cette routine cherche si la position (xm,ym) Ÿ 
*correspond à une des zones du lieu courant.Si c'est* 
*la cas, fournit le numéro de cette zone. En cas de * 


* recherche négative, elle renvoit la valeur 0. a 
KORR MORE KR ROR ROCHER RIRE RAR RAR RAR ARR RO RATE 


KKKKKRKKARARARARERÉARARE 


* xm% : Position X * 
* ym% : Position Ÿ * 


KKKKKKKKKKERKERRRRERRE 


FUNCTION cherche zone(xm%, ym%) 


LOCAL n5%,r% 
LOCAL zone debut%,zone fins 
LOCAL px%,py%,tx%, ty 


r#=0 
zone _debut#=1ieux#(lieu_ courant, 1) 
zone fin%=lieux#(lieu courant*,2) 
' x 
FOR n%=zone debut% TO zone fin* 
px%=zones#(n%, 1) 
py#=zones%(n%,2) 
tx#=zones%(n%,3) 
ty%=zones%(n%,4) 
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IF Gtst_zone(xms,ym%, px, py%,tx%, ty%)=1 
r#=n% 
ENDIF 
NEXT n% 
RETURN r% 
ENDFUNC 


L 
LOKARERR AR RER IR ARE RAA RH NRA REA RRRRRÉRRRAE RAR 


! * MODIFICATION DE LA FORME DE LA SOURIS * 
L'UKKKERERERERERERÉRERERERERARERERERARRRERERREX 
PROCEDURE forme souris (n%) 
IF n%=0 
DEFMOUSE 0 
ELSE 
DEFMOUSE souris$(n%) ! Souris redéfinis 
ENDIF 
RETURN 


| Souris fléche 





Vl OKKAKKKKKKKAXKARKAKRERARKAKRREAMERÉRARRRARREEXEXX 


* ATTENTE D'UN DEPLACEMENT DE LA SOURIS * 


KAKKKKKKKKEKEREKEERERARKERERAERARARALREXE EE 


LL OXKKKAKAARKRAARRRAAARAARÉARAAEREEERERERKRRARAARAEARAREXE 


! * Cette routine attend que la souris change de. * 
! # position, ou qu'il se produise un clic souris. * 
LL HKKKKEKKRKKRKKKRKKKRARRAKERKEREKRKKRERARAÉRRRRARRARARAXX 
PROCEDURE att move souris(VAR xm%,ym%,km%) 

LOCAL x0%;, y0% 

1 


x0%=xm% 
y0%=ym 
DO 
MOUSE xm%, ym, km 
EXIT IF ((xm%<>x0%) OR (ym%<>y0%) OR (km#%<>0)) 
LOOP 
RETURN 


' 

LOKAKKKKKKAEARERXKKEEEEEERRERERERERRÉERERRRARERKE 

® X AFFICHAGE DE LA DESCRIPTION D'UN LIEU * 

D OKKKKKKKKKKKKKKKRRKREKERERRRELERRRRKEREREKRRRRKXÉ 

PROCEDURE aff texte(num lieux) 
@format(descrif$(num 1ieux%) ,38) Texte 38 lettres/ligne 
@rect(6,114,308,80,38) lEfface texte précédent 
Qaff_format(8,124) lAffichage texte formaté 

RETURN 


L'XRAKKKKKRARARKKAREREERRRERÉERERARARARAREAEXE 
‘x AFFICHAGE DE L'IMAGE DU LIEU COURANT * 
1 KKKKKKKKAKRERKARARRRARAAARARRRARKARARERRRERXE 
PROCEDURE aff_image(num lieu“) 

LOCAL palettes 

LOCAL tailles 

LOCAL nom image$ 


! Nom image lieu 
! Mémoire pour palette 


nom image$=images$ (num lieu“) 
palette$=SPACES (32) 
l 


OPEN "i",#1,nom image$ 

BGET #1,VARPTR(palette$) ,32 

BGET #1,VARPTR(taille) ,4 

image$=SPACES (tail1e%) 

BGET #1,VARPTR(imagef$) ,taille* 

CLOSE #1 

VOID XBIOS(6,L:VARPTR(palette$))! Modif. palette 

PUT 6,28, imagef ! Aff image 

@aff texte(num lieu“) ! Aff description lieu 
RETURN 


! Ouverture fichier 

! Lecture palette image 
! lecture taille image 
! Mémoire pour image 
! Chargement image 
! Fermeture fichier 





D HORR IRAN EH RIRE RAR RO RE 
! % AFFICHAGE DE L'ECRAN DE JEU * 
D HORAIRE RER RIRE IEEE RE RICE 


1 OHKKKKKKEXKREARRERRRARREREERERERERELRAARRARAREREEREARR 


*Cette routine est utilisée au début du programmepour* 
*afficher l'écran de jeu qui sera utilisé tout le dé 
’ *reste du temps. x 


KRÉKERERAEEAEEEEEEEEERREERAREMELEREREREERARALEXAREEXE 


PROCEDURE aff ecran 


@cis ecran(9) ! Effacement écran K 
@texte color(0) | 
@texte gras 

@cadre(6,6,56,15,8,0) ! Cadre INFOS 

TEXT 14,16,"INFOS" 4 
@cadre(79,6,64,15,8,0) ! Cadre SAUVER 

TEXT 87,16, "SAUVER" 
@cadre(161,6,72,15,8,0) ! Cadre LECTURE 


TEXT 169,16, "LECTURE" 
@cadre(249,6,64,15,8,0) ! Cadre SORTIE 
TEXT 257,16, "SORTIE" 

@texte normal 


COLOR 0 

BOX 5,27,314,108 ! Cadre du dessin 

BOX 5,113,314,194 ! Cadre description 

@aff image(lieu courant*)  ! Aff image de debut 
RETURN 


D RIRE HORREUR RHIN ER HIER RAR RER 
! * TEST SI CLIC SUR UNE OPTION DU JEU * 
DDR RER AR RANCE OR RER ARRET 


D OKKKKKKERERRRAREREXAEREEXEREEEEREREAEEAEAREREREEERERAE 


*Cette fonction teste si le joueur a cliqué surl'une* 
*des 4 options du jeu. En cas de recherche positive, * 
*e]le renvoit le numéro de l'option cliquée. En cas * 


*de négative, elle renvoit la valeur 0. æ 
LOKKAKEKRARÉRARRERRERREERERKRRRERRREREREREERERRRERÉRARÉ EEK 


FUNCTION cherche option(px%,py#) 


LOCAL zone* 
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zone#=0 

Test pour option INFO 

IF @tst zone(px%,py*,6,6,56,15)=1 

_ zone#=1 

ENDIF 

| Test pour option SAUVER 

1F @tst zone(px%,py*,79,6,64,15)=1 
zone#=2 

ENDIF 

! Test pour option LECTURE 

IF @tst_zone(px%,py%,161,6,72,15)=1 
zone#=3 

ENDIF 

* Test pour option SORTIE 

IF @tst zone(px%,py%,249,6,64,15)=1 
zone#=4 

ENDIF 

RETURN zone* 

ENDFUNC 


Il 


—— 


LOKXKKAKEKEKRÉERRERRARERERARKRREAEEX 


! #  ATTENTE CLIC SUR UNE ZONE * 


KKKHKRREREREKREREREREREREREKERERE 


KAEEEKRKRRERERKREREEREREREREREERERERRREERRRÈER RARE R RÉ 


‘ xCette procédure attend que l'utilisateur clique sur* 
‘ +yne zone de l'écran, ou sur une option joueur. Elle* 
‘ xgére automatiquement les changements de forme de la* 


‘ *souris en fonction des zones de l'écran. 22 
1 LRRÉLERERÉRERAREREREEEERRRERRRÉAEEERERERRREXRERERERARÉRRE 


‘ x Cette procédure modifie les variables globales Éd 
! x typ clic% et zone clics. " 
" * typ clic = 1 => clic dans une option utilisateur * 
" * typ clic = 2 => clic sur zone écran F 
L %x 


zone clic = numéro de la zone cliqué ART 
DL OKKKKKKÉKRARERRÉERÉÉRRERARÉRÉERÉRARARREREARERERERERARE 
PROCEDURE att_ zone clic 

LOCAL xm%, y, km 

LOCAL num souris 

LOCAL num zone% 

LOCAL zone souris* 

LOCAL num options 


LOKKKRERRERRRAEAKEAKRERERRRÉRAREEREREAREAER 
DETERMINATION ETAT INITIAL SOURIS * 
LOKRKKKEKKKKERKERRRERAARARRRRERREERRRRAAERX 
MOUSE xm', ym, km ILECTURE ETAT SOURIS 
zone souris%=@cherche_zone(xm%,ym“) !RECHERCHE NUM ZONE 
IF zone souris%=0 

num _souris%=0 

ELSE 

num_souris#=zones#(zone_souris#, 5) !LECTURE NUM SOURIS 
ENDIF i 
@forme souris(num souris*) 
SHOWM 


DO 


LE 


! CHANGEMENT SOURIS 
! AFFICHAGE SOURIS 


zone clic#=nüm option | 
ENDIF 
EXIT IF typ clic#<>0 
LOOP 
RETURN 


PROCEDURE deplacement(num lieu“) 


RETURN 


PROCEDURE parler personnage (perso#) 


| 
Gatt move souris(xm%,ym%,km%)! ATT DEPLACEMENT SOURIS | 
num _zone*=@cherche zone(xm*, ym%) ! CHERCHE ZONE SOURIS 
IF (num zone%<>zone souris“) ITEST CHANGEMENT ST ZONE 
zone souris#=num ZOne# ! MODIF. ZONE SOURIS 
IF zone souris#=0 | 
num _souris%=0 
ELSE | 
num_souris*=zones%(num zone%,5) ! NUM SOURIS 
ENDIF 
@forme souris(num souris#) 
ENDIF 


! CHANGEMENT SOURIS 


typ_clic#=0 
IF (km%=1) AND (num zone%<>0) 

typ clicæ=2 

zone clic#=num zone* 
ENDIF 
num_option%=@cherche_option(xm*, ym*) 
IF (km%=1) AND (num option%<>0) 

typ clicæ=1 | 








KKKKKKEXKKKKKKERRRRRAKREX 


* CHANGEMENT DE LIEU * 


RKKKAKXKKRKERRARARAKERERE 


| Effacement souris 

| Nouveau lieu courant 
! Aff nouveau lieu 

| Aff souris 


HIDEM 

lieu courant#=num lieu“ 
@aff_image(lieu courant) 
SHOWM 


———_—_——— 


KKKKKKKKKKKEKREREKARARERKERXEEX 


* PARLER A UN PERSONNAGE * 


KKKKKEKKKKKKERKAREARAKERERERE 


@attOclic 

HIDEM 

@memorisation ecran 
@cadre(11,52,298,96,1,0) 
@texte gras 

TEXT 128,64, "DIALOGUE" 
@texte normal 
@format(dialogues$(perso%),36)! texte 36 caract./ligne 
@aff_format(16,76) . F Aff texte dialogue 


! Attente arrêt clic 
| Effacer souris 


! Aff cadre conversation 


{ Aff titre option 





@cadre(144,125,32,15,2,0) 
@texte gras 

TEXT 152,135, "OK" 

@texte normal 

SHOWM 


| Cadre pour ‘OK 


! Aff de ‘'OK' 
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CRE LE TU) 


Ent on LÉ rs lt et 


| 





@wait zone(144,125,32,15) ! Attente clic sur ‘OK! 


HIDEM | Effacer souris 

@restauration ecran 0 

SHOWM 1 | Afficher souris 
RETURN 


Ll 
LOKKRAKAKRKKKKKKEKRERERKERARAREARX 


* *. AFFICHAGE D'UN MESSAGE * 

LOXKKKKKKKRKRKARARERRARAARERÉERÉ 

PROCEDURE affichage message(num“) 
@attOclic ! Attente arrêt clic 
HIDEM ! Plus de souris 
@memorisation ecran 
@cadre(11,52,298,96,1,0) 
@texte gras 
TEXT 136,64, "EXAMEN" 
@texte normal k 
@format(messages$(num%) ,36) ! Texte 36 car/ligne 
@aff format(16,76) ! Affichage du texte formaté 


! Cadre boite 


! Affichage Titre option 


@cadre(144,125,32,15,2,0) 
@texte gras 

TEXT 152,135,"O0K" 

@texte normal 

SHOWM ! Affichage souris 


@wait_zone(144,125,32,15) 


! Cadre boite 'OK' 


! Attente clic sur ‘OK' 


HIDEM ! Remise de l'écran 
@restauration ecran ! dans son état 
SHOWM | initial. 

RETURN 


' 
D OKKKKKKKKKKKAKKKRKLKRERAKEREEE 


! *  EXECUTION DES ACTIONS * 

LORAKKKKKKKRAAKKEKKKRKERERRAAEE 

PROCEDURE exec action(n%,parametre%) 
SELECT n% 


CASE 1 
@deplacement (parametre) 
CASE 3 
@parler personnage(parametre*) 
CASE 7 
@affichage message(parametre*) 
ENDSELECT 
RETURN 


U 
LD OKKKKKKKKKARERARAREAREARERX 
! X OPTION INFORMATION * 
L'OKAKRAAKKARARAAKKXEERERARX 
PROCEDURE option info 
@attOclic 
HIDEM 
@memorisation ecran 


@cadre(43,59,234,82,1,0) 
@texte gras 
TEXT 66,69,"JEU D'AVENTURE GRAPHIQUE" 
@texte normal 
TEXT 52,89,"Programmation GFA BASIC 3.0" 
texte italique 
TEXT 52,99,"(C) 1990 Patrick Leclercq" 
TEXT 52,109,"(C) 1990 Atari Magazine" 
1 
@cadre(144,117,32,15,2,0) 
@texte gras 
TEXT 152,127,"OK" 
@texte normal 
SHOWM 
@wait zone(144,117,32,15) ! Attente clic sur 'OK' 
HIDEM 
Grestauration ecran 
SHOWM 
RETURN 


1 RIRE RERO IR RAR 
! # OPTION SAUVER JEU * 
D ORARRRRARIRRIR ER RRRER RER 


1 KHKR RER ERA RAR RÉ KR AK HER Ke HR RH HR HR OR AAA KO RARRH HR 


! *Cette routine sauve le numéro du lieu courant.Dans* 
! *le cadre d'un programme plus gros, on peut sauver * 
! *l'état du personnage (argent, points de vie,objets* 
! xpossédés, etc.) E 
1 OKAKKKAKKEKKKKEKKEKKKKKEKKRRARRRARAARARAREKEREEERRREAREREERE 
PROCEDURE option sauver 

LOCAL sauvef 

@attOclic 

FILESELECT “*,SAV","",sauvef 

IF sauve$<>"" 

OPEN “o",#1,sauve$ 


PRINT #1,lieu courant% # 
CLOSE #1 
ENDIF 
RETURN 


L'OXXKAKKKAKKKKKKKKEXERREEAK 
! * OPTION LECTURE JEU * 
LOKKKKEKKKAKKKERERÉRRÉERERE 
PROCEDURE option lecture 
LOCAL lect$,lieu sauvx 
@attOclic 
FILESELECT "*,SAV","",lect$ 
IF lect$<>"" 
OPEN "i",#1,lect$ 
INPUT #1,lieu sauv# 


CLOSE #1 
@deplacement(lieu sauv#) 
ENDIF 
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PROCEDURE exec_option(num option“) 
SELECT num options 


Û ENS CASE 1 


RETURN 





RIRE ARE ONE ICE 
* OPTION SORTIE JEU  * 
RAR IR ER RARE AE 


LEE CE DCR ED TERRE RAR RE 


xLa condition de sortie est la variable sortie“:  * 
xCette routine affiche deux cadres ('OUI' et 'NON')* 
*et attend que le joueur clique sur l'un d'entre . * 
*eux. Si le clic a eu lieu sur ‘OUI', la variable * 
*sortie* prend la valeur 1 (condition de sortie du * 


*programme) . x 
CARRE HE ER ED RER CREER  R OROR KA Ke 


PROCEDURE option sortie 


LOCAL xm%, ym# 

LOCAL clic option* 

@attOclic 

HIDEM 

@memorisation ecran 
@cadre(39,74,242,52,1,0) 

TEXT 48,84," Voulez-vous vraiment sortir” 
TEXT 48,94,"de ce programme ? " 
@cadre(94,101,40,16,2,0) 
@cadre(188,101,40,16,2,0) 
@texte gras 

TEXT 102,112, "OUI" 

TEXT 196,112, "NON" 

@texte normal 


Goption info 


CASE 2 


Goption sauver 


CASE 3 


Goption lecture 


CASE 4 


Qoption sortie 
ENDSELECT 


RETURN 


RCI R IR ROCH REIN ATK 
* GESTION DU JEU * 
RAR RON MER RARE 


HORREUR CHERE RER RER CEE HR RER RAK KE 


* Cette routine est la boucle d'exécution du prg. 


* Elle contrôle la condition de sortie. 2 
RERAEREEREARERRERERERERERERERÉRERERRARERRERÉRAREER 


PROCEDURE gestion jeu 


LOCAL action 
LOCAL parametres 
sortie%=0 
DO 

@att zone clic 


! Attente clic joueur 


1 OKKkKEKKRKAKREEERRERRAERERARRAREREK 


SHOWM ‘x Test si clic option joueur * 
clic option#=0 LOXKKÉREELERRERAKKEERERERRERERERARX à 
DO IF typ clicæ=1 


@att_clic(xm%,ym) 

IF @tst _zone(xm%,ym%,94,101,40,16)=1 
clic option=1 
sortie#=1 

ENDIF 

IF @tst zone(xm%,ym%,188,101,40,16)=1 
clic options=1 


@exec_option(zone clic#) 
ENDIF 


DL OKKKRRKREKEARERERRRRRARRRAARAREREREÉ 


1 x Test si clic dans zone écran * 
1 KRRRRERERE RARE ÉIRRARRARRERÈREREE EE 


IF typ clic#=2 


ENDIF action%=zones#(zone clic*,6) 
EXIT IF clic option=1 parametre#=zones“(zone clic#,7) 
LOOP @exec_action(action#,parametre“) 
HIDEM ENDIF 
@restauration ecran : 
SHOWM EXIT IF sortie#=1 ! Condition de sortie du prg 
RETURN LOOP 
\ RETURN 


——___—_—_—_—_————_—————…——————— 


RH ÉORR KR RAR RH RERO RONA RRE 


*  EXECUTION DES OPTIONS JOUEUR * 


KEKKERKKRERERRRRRREERRRERRERERRRRER 


LAERRERRERERERERRREERARERRERERERRRRAREARARÈRÉRARARE EE 


* Cette routine lance l'exécution de la routine 


* associée au numéro de l'option désirée (1 à 4). * 


LRELERERARRREEERÉRRRAREEEARRERERERRRARERERERARAARARRE 
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DH RER DER RER REED EU ARC ROC ARR IR A 


STOCKAGE DES DONNEES DU PROGRAMME + 


DRE R IR M ERREUR ARR ARR RE 





KKKKKKRKEKRERKRRRRAKRARE 


* FORMES DE SOURIS * 


KKKKKKKKRRRARRKREKERKRE 


FORMAT DE DEFINITION : 


BEST OF GFA BASIC 


TS 





F4 


rex 


PER USE Re LME 





! DATA Position x du point de clic par rapport 

: au coté haut gauche de la souris 

‘ DATA Position y du point de clic par rapport 

: au coté haut gauche de la souris 

‘ DATA mode d'affichage (toujours 1) 

DATA Couleur du masque 

! DATA Couleur de la souris 

“ DATA 16 entiers 16 bits pour le codage du masque 

! DATA 16 entiers 16 bits pour le codage de la forme 


souris: 
1 HRRREEREIRRRRRREREXRERERRÉR AE 


‘FORME 1 : ALLER DEVANT * 

PT TT LIST ILIIISSSLST EEE SNS 

DATA 8,8,1,0,1 

DATA 80000,80180,407E0,&1FFB,83FFC,&3FFC, &07E0, 80FFO 
DATA &OFFO,&1FF8,&1FF8,83FFC,&3FFC,87FFE, 87FFE, 80000 
DATA 80000, 80000, 40180, 807E0,81FF8,807E0, 803C0,807E0 
DATA 807E0, 80FFO,80FFO,&1FF8, &1FF8,83FFC, 80000, 80000 


LOLRÉHERRRAREREREREEREREERÉARARERERAAKÉ 

‘x FORME 2 : ENTRER PAR UNE PORTE * 

LV ORRREREREREERKAREREERRRRKRERRRRRREEREE 

DATA 8,8,1,0,1 

DATA 80000,801FF,801FF,821FF,831FF,830FF, BFDFF,BFFFF 
DATA RFFFF,&FDFF,839FF,&31FF,821FF,801FF,801FF, 80000 
DATA 80000, 80000, 800FE, BOOFE, &00FE,&10FE, &3BFE ; &7CBE 
DATA &7CFE,R38FE,&10FE, BOOFE, &OOFE, &00FE , 80000, 80000 


VO KKAKAKKKERARERARAREREE 

! % FORME 3 : PARLER * 

VOHKXKKKRKAAAKERERERRERERKXE 

DATA 8,8,1,0,1 

DATA &FEO0,RFE3E,&FE7F,&FE7F,&FE7F,&FF7F,&FF7F,&FE7F 
DATA &FE7F,&FE3E, &F8E0,&FE00, &FE00, &FE00, &FE00 , &FEOO 
DATA 80000,80000,83C3E,8242A,87C3E,87E22,87È8E,&7C12 
DATA &7C3E,&7000,87000,8&7000,&7C00,&7C00, &7C00, 80000 


LOKKKKEAKRRRKEREXRERERÉREX 


"x FORME 4 : MANGER * 

1 KKKKKKKKKEKRRRRKRRÉREREARX 

DATA 8,8,1,0,1 

DATA &FE00, &FE00, BFEO0, BFE00 , &FE00, &FFO0, &FFO0 , &FE00 
DATA &FEOO,8FAFE, 8&FBFE, BF8FE, &FAFE, BFE0O, &FEOO , &FEOO 
DATA 80000, 80000, 83000, 82400, 87C00,87E00, 87E00, &7C00 
DATA &7000,87000,8707C, &707C,87000,87000, 87C00, 80000 


l'OXHKKKKAKXEERERAREREREX 


‘x FORME 5: BOIRE * 

D OXKRKRRRAKRELERAREARARERXX 

DATA 8,8,1,0,1 

DATA &FEOO,&FE78,8FE78,&FE78, &FE78,8FF78,8FF78,8FE78 
DATA &FE30,8FE00,&F820,8F810,8F807,8FFFF,BFFFF,BFFFF 
DATA &0000, 80000, 8330, 82430, 87C00,87E00, 87E00, &7C00 
DATA &7C00,87000,&7000,87000,87000,87002, 8&7FFE , 80000 


LOKKKKKREAKERRRERERERERERE 


! * FORME 6: FRAPPER * 


VOKAKREKKERERERARRREARERER 

DATA 8,8,1,0,1 

DATA &0000,801C0,&1FCE,&1FFE,&1FFC,&1FFC,87FF8,87FF8 
DATA &7FFC,&7FFE,&7FFE,&3FFE,8&3FF8, &3DF0, 830F0, 80000 
DATA 80000, 80000, 80180, ROD84,&0FF8,&OFFO, &1FFO,83FF0 
DATA &3FFO,R3FF8,83FFC,&1FFO,818E0,8&1060, 80000, 80000 


! ARR RO RH OR RAR RAR A NRA RATÉ 

‘ «FORME 7 : OEIL (POUR EXAMEN) * 

1 JHR HR RAR ER RER HR ER AA AO RO RROK 

DATA 8,8,1,0,1 

DATA &FEO,81FF0,R3FF8,87FFC,BFFFE,RFFFF,&FFFF,BFFFF 
DATA &FFFE,87FFC,83FF8,&1FFO,87C0,80,80, 80 

DATA 80,8FE0,81010,827C8,85FF4, &BABA, &DBB6 , 89C72 
DATA &4FE4,827C8,81830,87C0,80,80, 80, 80 


VO KKKKKRKKERRERRERERERREARAUK 


‘+ FORME 8 : DEMI-TOUR * 

LV OHXKKEKERKREARERERRRARERRRÉEE 

DATA 8,8,1,0,1 

DATA 80000, 80000,83FFF,R3FFF, B3FFF,83FFF, B3FFF,B3FFF 
DATA &3F3F,83F3F,87FBF,&FFFF,&7FBF,83F3F,&1E3F, 80C3F 
DATA &0000,80000,80000,81FFE,R1FFE,&1FFE, &IFFE,BIELE 
DATA &IELE,&I1E1E,R1E1E,87F9E, R3FIE,&IELE,ROC1E, 80000 
DATA —1 


—_—_—————————————————— 


D OXÉAERKERERAKERRRERERERRRARRRERAKE 


1 x * 
‘ x TEXTES DES DIVERS MESSAGES * 
1 + x 
1 OHRREKEEKÉRERERÉERRAREREAERREEREAX 
messages: 


——_—_——_—_—_—_—_—_—_— 


LORARERÉREREREERRERERERRERERERÉE 


! x MESSAGE 1 : LES POTENCES * 
LOHRKRRRAAERERKEAERÉRRÉRRRRERRAE 

DATA Les potences sont un triste souvenir de l'époque 
de 

DATA HELGIR LE BON. Elles rappellent aux étrangers que 
la 

DATA justice de la cité est rapide et efficace, 

DATA * 

L  ——— 


D RRROROR HR AR RON RH ER RER ROROROOR AR AIR AK 


1 x MESSAGE 2 : LES TONNEAUX DE VINS * 


1 RO MORE HR CR RERO RER ER REA AR ARE 


DATA Un marchand de verroterie tente de convaincre une 
DATA jeune femme qu'elle sera plus séduisante avec un 
DATA collier de perles de verre. Elle ne semble pas 
DATA très convaincue. 

DATA * 

LOLKKKKRRKRRRRRRERERERRRARANX 


! x MESSAGE 3 : ARMURIER * 


LORKAKAKKRAKREREKEXERRAARERKREE 


DATA Un armurier propose diverses armes. Son stock est 
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DATA impressionnant. Il propose un lot de couteaux de 
DATA lancer pour un prix très raisonnable. 
DATA * 


——_—_—_—_—_—_—————— 


LV ORAKKKKKARAKEKRÉRERARKERERRRARRRARÉREEE 


! x  MESSAGE 4 : VENDEUR DE BEIGNETS * 

LU OXKKKKKERRRAKRARERKRERERKERERREEREREREEER 

DATA Un vendeur de beignets propose sa marchandise. C'est 
DATA appétissant, mais un peu gras. 

DATA * 


U 





LOKKKKKXKERKRRERRÉERERERERERRRRRELR RE 


! x MESSAGE 5 : VENDEUR D'HABITS * 

1 RH NH HR RARE RE RAR OR RCK 

DATA Un jeune marchand à l'air aggressif vend de vieux 
DATA habits au prix du neuf. 

DATA * 





1 OKKKKERÉRERERKRRERERERÉRERÉRRARRRRAEEKK 


" x MESSAGE 6 : VENDEUR DE CHEVAUX * 
LURKRKKRKKEREREEKERERÉRRARARE RER RRARRÉRÉ 

DATA C'est l'endroit idéal pour acheter un cheval. Vous 
DATA pouvez y trouver aussi bien un cheval de trait, 
DATA qu'un destrier. IL y a même des ânes (cela peut 
DATA toujours être utile). 

DATA * 





l KKKKKKAKKKAKKARXXKERERERARAREKKRE 


1 x MESSAGE 7 : EXAMEN MILICIEN * 

LV OXKKKAKEKKKKKERERKERERRKRKKRÉREREREEX 

DATA Le chef des miliciens est un sergent d'une DATA 
quarantaine d'années. Il est très bien armé 


DATA et semble compétent. Son aspect guerrier est 


DATA contrebalancé par la poupée de chiffons qu'il 
DATA fabrique pour sa fille. ; 
DATA * 





LOKKKKKKEKARKRKARKRKRAERERRRRRRAEAX 


! * MESSAGE 8 : JOUER AUX DES * 

LV OKHKKKKAKERKREEEERERARERARERERERÉ 

DATA L'un des joueurs de dés gagne gros. Les autres le 
DATA regardent avec une lueur de suspicion dans Île 
DATA regard. 

DATA * 


——_—_—_—_—_—_—…—…—…—…—…—…—…—…—_…———— 


LOLAKKKKEKRREREREERREREEEREERERARRRRAAREAKE 


! x MESSAGE 9 : FIN DE L'ESPACE DE JEU * 
LOKKEKRRERKREAERMERRERRRERERERARERRERRRERARE 

DATA La ville s'étend encore plus loin dans cette 

DATA direction. Vous ne pouvez pas aller plus loin (pour 
DATA l'instant). 

DATA * 





1 KKKKKKARAREREREREREKEERARREREAREXE EX 


! x MESSAGE 10 : SALLE DE TORTURE * 


LOKRARRKKKEKKKERRERERERRRKRAERRRERREREARE 


DATA Vous ne pouvez ouvrir cette porte. Le Milicien vous 
DATA dit qu'elle mène à la salle de torture. Seul le 


DATA bourreau et ses aides ont le droit d'entrer ici (et 
DATA les prisonniers). 
DATA * 


—— 


LOHKKKKEKRÉRAARERRERRARAARERERERAREÉREAR 


* INDICATEUR DE FIN DE MESSAGES * 


LV OKRKKAKKRÉKREAREERERRRRREERERRMAERRRE ARE 


DATA *FIN 


L 





D OKAKKRKKRKKEKREKRÉKERELEREREREAREARE 


! x LES TEXTES DES DIALOGUES * 


L'OKKKKKKKKRERRERKKERKAKRRKRRERERARX * 
dialogues: 

LOXKKKKEKKRRRRRKERRXERRERREEREREAEEAER 

! * DIALOGUE 1 : HOMME EN ARME .* 
LOKKKKKRKRKKERKEREERERERRRKREAKRREREX 

DATA Vous parlez avec l'homme en armes. C'est un prêtre 
DATA d'un ordre guerrier. 11 vous raconte les exploits 
DATA qu'il a vécu avec ses amis aventuriers. Il est très 
DATA fier de son bras en métal qui doit être une arme 
DATA redoutable. 

DATA * 





VOKKKKKAKRERKRRKREKKERERERERKE 


* DIALOGUE 2 : MENDIANT * 


1 KKXKKAKRAKEEKEEKERERARAREXEX 


DATA Vous parlez pendant un moment avec le vieux 

DATA mendiant qui se trouve là. Il est heureux car 
DATA il a assez de pièces pour se payer du pain blanc. 
DATA C'est un jour faste. Les dieux ont été bon avec 
DATA lui. 

DATA * 





LOHRKKKKKRKRAKRKRRRARERRREREKRRREREREÉE 


‘ k DIALOGUE 3 : GARDE PRISON * 
LOKKKKKKRKKKÉKKREREKERKRRERKRRERERÉE 

DATA Le garde vous raconte qu'il monte la garde toute 
DATA la journée. Il est remplacé par deux collègues 
DATA pendant la nuit. Il aime ce poste, car c'est 
DATA assez calme. I1 plaint ses camarades qui doivent 
DATA affronter les émeutes de la rue. 

DATA * 





LOXKKKKKKEARKRAKKRAREEERERRERKRARAEX 


! x DIALOGUE 4 : PRISONNIER 1 * 

D OKKKKKKRKAKKREREERKEREKKKRKRRRERRERER 

DATA Le prisonnier vous explique qu'il a été condamné 
DATA à 3 jours de prison pour avoir volé et tué la 
DATA belle-mère du chef des Miliciens. 

DATA * 





L OXkKKKAKARAKKEKKKERERERRERARREREARE 


! *. DIALOGUE 5 : PRISONNIER 2 * 


LV OKKAKRAKERKRARAREARAERRERERÉREREXX 


DATA Ce prisonnier attend d'être jugé pour pillage 
DATA de tombe, mais il sait déja qu'il sera écartelé 
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DATA en place publique. Il est assez content de la vie 
DATA qu'il a mené jusqu'ici. Il s'inquiéte un peu pour 
DATA l'avenir. 

DATA * 


| HKKKKKXKREERKREARÉAREREREANE 


FIN DES DIALOGUES * 


L'OXKKKAKRKERKERÉRERÉRAEREERX 


DATA *FIN DIALOGUES 


UO*x 


—_—_—_—_—_——— 


LOHAKRREXKRARERERÉRAREREAREX 


x * 
! x DEFINITION DES LIEUX * 
x * 


LOKRRKRERKEARERERERAAAEREKRE 


lieux: 

! DATA Nom image 

‘ DATA texte descriptif du lieu 

DATA px,py,tx,ty,souris,action,paramêtre, ! REM 
! DATA -1 2 

! DATA *FIN 


a pere, 


VOLXREKEKKRRREEERERERERERARAREAREREAEE 


LIEU 1 : LA PORTE DE LA CITÉE * 
1 KRRRKELRERKÉEREREERERKREERRÉRERERREX 
DATA VILLE.BIN 

DATA Vous voici devant la porte de la Cité de Randhal où 
DATA se trouve l'Epée Runique (d'après la légende). C'est 
DATA un endroit où se cotoient toutes les races et toutes 
DATA les cultures. 


ex 1 


DATA * 

DATA 16,48,60,40,2,1,2, ENTRER DANS TAVERNE 
DATA 86,38,60,60,1,7,9, MESSAGE DE FIN DU MONDE 
DATA 156,48,60,40,1,1,3, ALLER VERS MARCHE 


DATA 226,38,8,60,7,7,1, 
DATA 244,48,60,40,2,1,5, 
DATA —1 


qq 


EXAMEN DES POTENCES 
ALLER VERS POSTE DE GARDE 


em on om lon ve 


! DE D RO EE RER CR RAR RER 


LIEU 2 : TAVERNE DE LA LICORNE BLEU * 

1 RARKRARERERRRÉRERÉRAREERRRRREREERARARAEEE 

DATA TAVERNE.BIN 

DATA Vous êtes dans la Taverne de La Licorne Bleu. 
DATA C'est un endroit célébre sur les 12 mers et Îles 
DATA 8 océans. Quelques marchands jouent au dés dans 
DATA un coin de la salle. Un homme en armes est assis 
DATA à une petite table. 
DATA * 

DATA 38,53,20,30,2,1,1, 
DATA 90,78,80,20,7,7,8, 
DATA 202,78,80,20,3,3,1, 
DATA 90,38,60,25,5,5,1, 
DATA 202,38,60,25,4,4,1, 
DATA -1 


—_—_—_—— 


U x 


SORTIR DE LA TAVERNE 
MESSAGE JOUER AUX DES 
PARLER (HOMME EN ARMES) 
BOIRE 

MANGER 


; LOKRKAREEKERKERERRK ARE E 


LIEU 3 : MARCHE 1 * 


1 OHKEKEARKARAREXKAAKERARKX 


LU x 
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“1 + 


DATA MARCHE1.BIN 

DATA Voici le célèbre marché des 5 peupliers. Cet endroit 
DATA est très ancien. La cité a été construite à coté des 
DATA entrepôts des premiers marchands. On peut y trouver 
DATA à peu près n'importe quoi (à condition d'avoir 

DATA beaucoup de pièces d'or). 

DATA * 

DATA 20,93,280,10,8,1,1, 1 DEMI-TOUR VERS DEBUT VILLE 
DATA 22,33,62,50,3,3,2, ! PARLER AU MENDIANT 

DATA 100,33,42,50,1,1,4, ! ALLER VERS MARCHE 2 

DATA 158,33,82,50,7,7,2, ! MESSAGE POUR ACHAT CAMELOTE 
DATA 256,33,42,50,7,7,6, ! VENDEUR DE CHEVAUX 

DATA -1 

1 KKKHKKREREIRRRERRKIRAK AK 

1 x LIEU 4 : MARCHE 2 * 

L HR RER ARAIUR AR ARAARKE 

DATA MARCHE2.BIN 

DATA Vous vous trouvez devant d'autres boutiques. 

DATA * 

DATA 20,91,280,15,8,1,3, 
DATA 53,33,40,50,7,7,3, 
DATA 140,33,40,50,7,7,4, 
DATA 227,33,40,50,7,7,5, 
DATA —1 


! D 


! DEMI-TOUR VERS MARCHE 1 

| MESSAGE ARMURIER 

! MESSAGE VENDEUR DE BEIGNET 
1 MESSAGE VENDEUR D'HABITS 


VO OLERKKRERERARRREREAÉKRRRERERERX 


LIEU 5 : POSTE DE GARDE * 

! HRXRÉRERKEEEERERÉEREARERERAER 

DATA GARDE.BIN L 

DATA Vous entrez d'un pas décidé dans le poste de garde 
DATA de la Cité. Quelques miliciens s'occupent en 

DATA discutant de leurs exploits militaires. La porte 
DATA de la prison est ouverte. 

DATA * 

DATA 53,33,40,50,7,7,7, 
DATA 140,33,40,50,2,1,1, 
DATA 227,33,40,50,2,1,6, 
DATA -1 


: 
————————————————————— 


1 x 


| EXAMINER CHEF MILICIEN 
{ SORTIR DU POSTE DE GARDE 
1 ALLER VERS”LA PRISON 


1 KKKKRKERERERERERERRÉREEX EX 


LIEU 6 : LA PRISON * 

LORAKEKXKRAKERERERRERÉREXEEX 

DATA PRISON.BIN 

DATA Vous êtes dans la prison. C'est un endroit lugubre. 
DATA Un Milicien surveille deux prisonniers. 

DATA * 

DATA 34,74,40,30,2,1,5, 
DATA 34,34,42,30,3,3,3, 
DATA 104,34,42,50,3,3,4, 
DATA 174,34,42,50,3,3,5, 
DATA 244,34,42,50,2,7,10, 
DATA —1 


! ALLER POSTE DE GARDE 
| PARLER MILICIEN 

| PARLER PRISONNIER 1 
! PARLER PRISONNIER 2 
! SALLE DE TORTURE 


EE  ———_" _ —…—…—…—…—…—……— —…—…—— 


DORE R ARR OR RO ROROR RO R ROM RURN ARR ARRURURK 


INDICATEUR DE FIN DE DONNEES * 


1 LRRRRERKRRRERERARKARRERERERARARAAE 


DATA *FIN 


RS: 
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GRAPHISME EN GFA BASIC 






BLIOTHEQUE 


DE FORMES DE SOURIS 
Donnez du cachet à vos programmes 


Cette bibliothèque offre 40 nouvelles formes de souris à utiliser à 
partir du GFA Basic. Vous pouvez employer ces souris dans vos 
propres programmes pour leur donner un air plus sympathique. 


Quelques généralités 


Les souris mesurent 16 pixels de haut sur 16 pixels de large. Elles ne 
peuvent être définies qu’en deux couleurs. Le même dessin peut être 
utilisé dans les 3 résolutions graphiques de l'Atari (basse résolu- 
tion 320x200 en 16 couleurs, moyenne résolution 640x200 en 4 cou- 
leurs, haute résolution 640x400 en deux couleurs et uniquement sur 
moniteur monochrome). Il est regrettable que les concepteurs du ST 
n'aient pas prévu de souris adaptées aux différentes résolutions, ce 
qui aurait permis la création de souris 16 couleurs en basse résolu- 
tion. Certains jeux utilisent de telles souris, mais pour arriver à leurs 
fins les programmeurs écrivent entièrement leurs propres routines. 


EE /N 


TEE TME 
8 ES QGhkh£LQ + TL 


4 LG rec K 
6V? LENS O GG LA 





Dessin des souris 


Les différentes souris proposées dans cet article ont été dessinées avec 
le logiciel de dessin, Degas Elite. Les dessins ont ensuite été trans- 
formés en données numériques grâce à un petit programme de con- 
version écrit en Basic GEA. On trouve souvent des éditeurs de souris 
dans les journaux ou dans les livres, mais il faut savoir que les gra- 
phistes professionnels n’utilisent jamais ces utilitaires. Tous les des- 
sins des logiciels commerciaux (animations, formes des souris, po- 
lices de caractères, pages de présentation, etc.) sont faits avec des logi- 
ciels graphiques classiques, puis récupérés à l'aide de petits pro- 


grammes astucieux. À 


Structure d’une souris 


Une souris se compose d’une forme, d’un masque de transparence et 
de deux valeurs de décalage pour les clics «x et y». La forme est le 
dessin de la souris. Il peut y avoir 27256 formes différentes, soit 
1,16x10°77 souris différentes! 

Le masque est un autre dessin indiquant au système les points de la 
souris qui doivent être affichés à l’écran, et ceux de la souris qui ne 
doivent pas l'être (c’est-à-dire les points où apparaissent le fond). 

Il ne faut pas confondre la souris système avec le dessin qui se dépla- 
ce sur l’écran. Ce dessin visualise la position de la souris, mais ce 
n’est pas un point, alors que la souris, elle, ne se trouve qu’à un seul 
endroit de l'écran. 

Lorsque l'utilisateur presse sur un bouton de sa souris, le système 
détecte le clic et fournit une position (x.y) de l'écran. Cette position 
est considérée par défaut comme la position du point haut gauche 
du dessin de la souris. 

Les valeurs de décalage x et y permettent de déplacer le véritable 
«point de clic» par rapport à ce point de clic théorique. En fixant la 
valeur de décalage en x à 2, le point de clic fourni par le système sera 
décalé de deux pixels vers la droite. 

En prenant de bonnes valeurs de décalage, on peut s'amuser à définir 
une nouvelle souris dont le clic ne se ferait plus sur la pointe de la 
flèche mais sur l’autre côté de la souris (certains virus utilisent ce 
genre d'effet). 


Programmation en GFA Basic 


L’instruction Defmouse (page 176 du manuel GFA Basic 3.0) permet 
de redéfinir la forme de la souris. Les données sont mémorisées dans 
des lignes de DATA sous forme de chiffres hexadécimaux. Cela per- 
met d’avoir des informations faciles à lire et à taper (&FFBO se re- 
tient plus facilement que 65456 en décimal ou 1111111110110000 
en binaire). Les données mémorisées dans les lignes de DATA sont 
stockées dans un tableau alphanumérique. 

La fin des informations est indiquée par la valeur -1 de la dernière , 
ligne de DATA. Ce système autorise l'ajout de nouvelles souris sans 
problème. 
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LORARERRAKRRRREKEEEEERREREREERAREERRRRARE 


1 + * 


 * BIBLIOTHEQUE DE FORMES DE SOURIS  * 
VU x * 


+ 
DR RR RH IR ROM ARR RAR ARR RAR RAR ARR RUE 


QE 
‘ (c) 1989 ATARI MAGAZINE & Patrick Leclercq 
ET  ———_…——_— 
* Machine : ATARI ST 

! Langage : BASIC GFA 3.03 


‘ Machine de developpement et de test : ATARI 1040 STF 


de  ————— 
RESERVE 50000 
DIM forme mouse$(50)! TABLEAU DE FORMES DE SOURIS 

nb_mouse#=0 ! NB SOURIS DE TABLEAU forme _mouse$ 


| RESERVATION MEMOIRE POUR BASIC 


Re ——_—_——_—…—…—…—…—…—…—…———…—"—"—"—…— ——"—"…"—…"—"—…"…"…"…"…"…"…"…"’"—"’-° — ———— —— 
” 
1 


@lec mouse ! LECTURE DES DEFINITION DE SOURIS 
@demo mouse ! DEMONSTRATION 
END 


——_—_—__—_—_— 


1 LRRR RER IR ER RM RM ER RON RO RORORURRRRURRRE ARR ARR RARE RARRRE 


‘ x LECTURE DES FORMES DE SOURIS STOCKES EN DATA  * 
D OKKKEKEKLKAREREERERRRAERELRERARAEEEREERERERERARAEEEE 
PROCEDURE lec_mouse 
LOCAL v%,m$ 
DO 
READ v 
EXIT IF V#=-1 


| LECTURE DATA 
| TEST SI FIN DE DONNEES 


INC nb mousex { UNE NOUVELLE SOURIS 

m$=MKI$ (v%) ! DEBUT DES DONNEES SOURIS 

FOR i%=1 TO 36 ! DEBUT BOUCLE LECTURE DONNEES 
! 
! 
! 


READ v% { LECTURE DATA SOURIS 
m$=m$+MKI$ (v%) STOCKAGE DES DONNEES SOURIS 
NEXT i% FIN. BOUCLE LECTURE DONNEES 


forme mouse$(nb_mouse%)=m$ ! STOCKAGE SOURIS 
LOOP 
RETURN 


t 
L 
—_—_————— 


LR RH ARR RON RON ROM RO RER RE RO RAR RARE AKK KE 


! X  DEMONSTRATION DES FORMES DE SQURIS * 
1 KKKRREEXRERERREERERERERRRRERÉRRRARERARRRE 
PROCEDURE demo mouse 
LOCAL i% 
FOR i%=1 TO nb mouse | DEBUT BOUCLE DEMO 
DEFMOUSE forme mouse$ (1%) ! AFFICHAGE SOURIS NUMERO 


! VARIABLE LOCAL 


5 
OS 


Gattclic ! ATTENTE D'UN CLIC SOURIS 
NEXT i% |! FIN BOUCLE DEMO 


RETURN 


1 





1 OHRXXEXKEREKRÉRREXERRRARXARERRERAÉE 


1‘ x  ATIENTE D'UN CLIC SOURIS * 
KEKKKKRKKRAERERERERERRRARERRRRER 
PROCEDURE attclic 
REPEAT { ATTENTE D'UN CLIC SOURIS 
UNTIL MOUSEK 
REPEAT { ATTENTE FIN DU CLIC 
SOURIS 
UNTIL MOUSEK=0 
RETURN 


L 


U 


———_—__—_——— 


VO OKKKRÉKERERKRERERARERERRERERERX 


* BIBLIOTHEQUE DE FORMES, * 


KRKEEKKKKEEKRÉEKARERKRERKRERRER 


FORMAT DE DEFINITION : 

DATA Position x du point de clic par rapport 

5 au coté haut gauche de la souris 

DATA Position y du point de clic par rapport 

! au coté haut gauche de la souris 

DATA mode d'affichage (1 =SPRITE NORMAL, 

—1 =MODE XOR)- 

DATA Couleur du masque 

DATA Couleur de la souris 

DATA 16 entiers 16 bits pour le codage du masque 
DATA 16 entiers 16 bits pour le codage de la forme 


REMARQUE : Les souris sont toujours définis en 

2 couleurs, mais cela peut être n'importe quelles 
couleurs de la palette utilisé par le systéme 
(rouge et vert par exemple). 11 n'y a qu'en haute 
résolution (640x400 sur écran monochrome) qu'une 
souris est toujours noir et blanc. 


montre: 

DATA 7,7,1,0,1 

DATA &7F8,8FF8,8FF8,&1FFC,&3FFC,87FFE,&FFFE,BFFFE 
DATA &FFFE,&7FFE,&3FFC,&1FFC,8FFC,&FF8,8FF8,87F8 
DATA &3F0,8570,87F0,8C78,8&1118,8292C,84104,852F4 
DATA &4104,8282C,81118,8C78,87F8,8570,86B0,83F0 

! 

coeur: 

DATA 7,7,1,0,1 

DATA &1C1C,&3F7E,&7FFF,BFFFF,&FFFP,BFFFF,BFFFF,&FFFF 
DATA &7FFF,&7FFF,&3FFE,&1FFC,8FF8,87F0,83E0,81C0 
DATA &0,81C1C,83F7E,&67EF,&4FDF, 84FDF,&4FFF,R6FFF 
DATA &27FE,837FE,&1BFC,&DF8,86F0,83E0,&1C0, 880 
point interrogation: 

DATA 7,7,1,0,1 

DATA &7F8,8FFC,&1FFE,&3FFF,R3F3F,83F3F,&1E7F,&FE 
DATA &1FC,83F8,&3F0,83F0,8&3F0,83F0,83F0,83F0 
DATA &1E0,87F8,8BFC,&173E,8161E,&1F1E,83E, &5C 
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DATA &B8,&170,8160,&1E0,8&0,&1E0,&160,&1E0 

larmes: 

DATA 7,7,1,0,1 

DATA &3C00,&7E00,&FF00,8FF00,&FF90,&FFB8,&FFB8,&FF7C 
DATA &7EFE,&3CFE,&39FF,87DFF,&FFFF,&FEFE,RFE7C,&7C38 
DATA &1800,82400,&4200,8&4200,88500,8&8510,88910,&4228 
DATA &3C44,844,&108A,8288A,8&6C92,8&4444,&6C38,83800 
oeil: 

DATA 7,7,1,0,1 

DATA &FEO,&1FFO,R3FF8,87FFC,&FFFE,&FFFF,&FFFF,8FFFF 
DATA &FFFE,&7FFC,&3FF8,&1FF0,87C0,80,80,80 

DATA &O,8&FE0,8&1010,827C8,85FF4,&8BABA, &DBB6,&9C72 
DATA &AFE4,827C8,8&1830,8&7C0,&0,80,8&0,&0 

dragon: 

DATA 7,7,1,0,1 

DATA &1C3C,8&3C3E,87F7F,&FFFF,&FFFF,&EFFF,&FFFF,&FFFF 
DATA 833FF,&FDF,8&1F9F,8&3F1F,R3E7F,8&3FFF,8&3FFF,&1FDA 
DATA &B18,8181C,8&3E3E,&7F3E,8&FFFF,&FBFF,893FF,&31EF 
DATA &1CF,R38F,&FO0F,&1E0B,&1C0B,&1C72,&1EDA,&F88 
blason: 

DATA 7,7,1,0,1 

DATA &FFFF,8FFFF,&FFFF,&FFFF,RFFFF,&FFFF,&FFFF,&FFFF 
DATA &FFFF,&FFFF,&FFFF,&7FFE,8&7FFE,&3FFC,&1FF8, &FFO 
DATA &FFFF,88AFF,8&C5FF,&8AFF,&C5FF,R&8AFF,8&DF55, &EFAB 
DATA &5F56,&6FAA,87756,8&26FC,831FC,&1AF8,8DFO, &3C0 
epee: 

DATA 7,7,1,0,1 

DATA &F,8&1F,83F,87F,8&FE,&61FC,8&F3F8,&F7F0 

DATA &EFEO,8FFCO,8FF80,&7F00,&FECO,&FFEO,&FFEO,&F7CO 
DATA 87,89,8&11,822,844,888,8&6110,&E220 

DATA &C440,8E880,87100,8&3A00, &6C00,8DEC0,&F7C0, &6380 
bouclier: 

DATA 7,7,1,0,1 

DATA &1FF8,83FFC,&7FFE,&FFFF,&FFFF,&FFFF,&FFFF,&FFFF 
DATA &FFFF,&FFFF,8FFFF,@&FFFF,&7FFE,R3FFC,&1FF8,&7E0 
DATA &7E0,818F8,833A4,85F82,8&4702,&8661,&88FD9,&9F0B 
DATA &BE07,&8E0F,&4F8E,&4F9E,R2FBC,&1EFS8, &7E0,&0 
fleche gauche pleine: 

DATA 1, 1, 1, 0, 1 

DATA 8&180,8380,8780,8&F80,&1FFF,83FFF,8&7FFF,&FFFF 
DATA &FFFF,87FFF,&3FFF,&1FFF,&F80,8&780,8380,8180 
DATA &0,8&100,8&300,8700,8&F00,&1FFE,&3FFE,&7FFE 

DATA &7FFE,&3FFE,&1FFE,&F00,8700,8300,&100, &0 

1 

fleche gauche vide: 

DATA:1,/1,:1, 0,01 

DATA &0,8300,8780,8F80,&1FFF,83FFF,&7FFF,&FFFF 

DATA &FFFF,8&7FFF,&3FFF,&1FFF,8&F80,8780,8300,80 

DATA &O,80,8300,8500,8900,&11FE,8&2002,8&4002 

DATA &4002,82002,&11FE,8&900,8&500,&300, &0,&0 


fleche gauche relief: 

DATA 1, 1, 1, 0, 1 

DATA 80,8300,8780,&F80,&1FFC,83FFE,&7FFF,&FFFF 

DATA &FFFF,&FFFF,&7FFF,&3FDF,&1FCF, &FCO, &7C0, 83C0 
DATA &0,80,8300,8&500,8900,&11FC, 82006, 84006 

DATA 84006, 86006,831FE,&19FE,&D80,8780,&380, &0 
fleche gauche haut vide: 

DATA’ 1,4t, 4, 0,21 

DATA &FFF8,8FFF8,&FFF8,8FFFO,8FFEO, &FFEO, &FFFO,&FFF8 
DATA &FFFC,&FFFE,&FFFF,RF3FF,8E1FE, &FC, 878,830 

DATA &0,&7FF0,8&4010,84020,84040,84040,84020, 84010 
DATA 84008,84C04,8&5202,86102, 884,848, 830,80 

fleche ‘gauche haut pleine: 

DATA 1, 1, 1, 0, 1 

DATA &FFF8,8FFF8,&FFF8,&FFF8,&FFFO,&FFEO,8FFFO,B&FFFE 
DATA BFFFC,&FFFE,&FFFF,8FBFF,&F1FE,&FC, 878,830 

DATA &0,87FF0,8&7FF0,R&7FEO0,&7FCO,&7FCO,&7FE0,8&7FFO 
DATA &7FF8,8&7FFC,&73FE,861FE, &FC,878,830,&0 
fleche haut vide: 

DATA 1, 1, 1, 0, 1 

DATA &180,83C0,87E0,&FF0,&1FF8,83FFC,&7FFE,&7FFE 
DATA 83FFC,&FFO,RFFO,&FFO,&FFO,&FFO,&FFO,&FFO 
DATA 80,8&180,8240,8420,8810,81008,&2004,83C3C 
DATA &420,8420,8&420,&420,8420,&420,&7E0, 80 
fleche haut pleine: 

DATA 1, 1, 1, 0, 1 

DATA 8180,83C0,87E0,&FF0,81FF8,83FFC,&7FFE,&FFFF 
DATA &FFFF,&FFO,8FFO,&FFO,&FFO,&FFO,R&FFO,8FFO 
DATA 80,8&180,83C0,87E0,8FF0,&1FF8,83FFC,&7FFE 
DATA &7E0,8&7E0,87E0,8&7E0,8&7E0,87E0,&7E0, &0 
fleche haut relief: 

DATA 1, 1, 1, 0, 1 

DATA &180,83E0,8&7F0,&FFB,8&1FFC,&3FFE,&7FFF,87FFF 
DATA &7FFF,8FFF,&FF8,RFFB,&FF8,8FF8,87F8,83F8 
DATA 80,8&180,8260,8&430,8818,&100C,82006,8&3C3E 
DATA 843E,8430,8&430,8&430,8&430,87F0,83F0, 80 
fleche bas vide: 

DATA 1, 1, 1, 0, 1 

DATA &FFO,&FFO,&FFO,&FFO,&FFO,8FFO,&FFO,&7FFC 
DATA &7FFE,8&7FFE,&7FFC,&1FF8,8FF0,87E0,8&3C0,8180 
DATA 80,87E0,8&420,8420,8420,8420,8420,&420 

DATA &3C3C,82004,81008,8810,8420,8240,&180,80 
fleche bas pleine: 

DATA 1, 1, 1, 0, 1 

DATA &FFO,&FFO,&FFO,&FFO,8FFO,8FFO,&FFO,&FFFF 
DATA &FFFF,87FFE,R3FFC,&1FF8,&FFO,&7E0,83C0,8180 
DATA &0,&7E0,87E0,87E0,&7E0,87E0,87E0,87E0 

DATA &7FFE,83FFC,&1FF8,&FFO, &7E0,83C0,8&180,80 
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TT 


souris st: 

DATA 1, 1, 1, 0, 1 

DATA &C000, 8&E000,&F000,8F800,&FC00, &FE00, &FF00, &FF80 
DATA &FFCO,&FF80, &FE00, &EFO0,&CF00,&780, 8780, &380 
DATA 80,84000,86000,8&7000,8&7800,&7C00,8&7E00,&7F00 
DATA &7F80,8&7C00,86C00,84600, 8600, 8300, 8300, &0 

forme bizarre: 

DATA 1, 1,1, 0,1 

DATA &E038,8&F1BC,BFFFE,&7FFF,&7FFF,&3FFF,&1FFF,827FF 
DATA &72FF,8F8FE,&7FFC,R3FFC,&1FFE,8FFF,8&7FE,&IE 
DATA 80,86038,8719C,&3FCE,&3FE6,8&1FC6,87EE, &2FE 

DATA &207E,8&7070,83870,&1FF8,8FFC,&7FE,&1C, 80 

loupe: 

DATA:1;"1, 1,10, 1 

DATA &1FF8,R3FFC,&7FFE,&FOOF,8E087 ,8E047,&E027,&E007 
DATA &E007,8&F00F,&7FFE,&3FFC,&1FF8,8&7E0,87E0, &7E0 
DATA &O,81FF8,83FFC,8&700E, 86086, 86046 ,86026, 86006 
DATA 86006,8&700E,R3FFC,&1FF8, 8240, 83C0, 8240, &3C0 
transistor: 

DATA 1, 1, 1, 0, 1 

DATA 83E18,83E3C,&3E78,83EF0,83FE0, &3FC0,&7F80,RFFO0 
DATA &FF00,8&7F80,8&3FDC,R3FFC,&3FFC,&3FFC, &3FFC,&3EFC 
DATA 8&0,81C18,81C30,81C60,&1CC0,8&1D80,81F00,&7E00 
DATA &7E00,81F00,&1D80,81CC8,8&1C78,81C78,81CF8, &0 
symbole etrange: 

DATA 1, 1, 1, 0, 1 

DATA &FFCF,8FFCF,&FFCF,8FFFF,&FFFF,&FFFF,&FFFF,&FFFF 
DATA &FFFF,&FFFF,RFFFF,8FFF8,&FFFE,&FFFE, FFE, 8F80 
DATA &0,87F86,87F86,86186,&61FE,&79FE,87986,&6186 
DATA 8&67FE,867FE,&6630,87E30,8&7EFC,&6FC, &600, 80 

l 

symbole atari: 

DATA 1, 1, 1, 0, 1 

DATA &7E0,8FF0,8FFO,&FFO,&FFO,R1FF8,8&1FF8,83FFC 

DATA &7FFE,&FFFF, &FBDF, &FBDF,&F3CF, &E3C7 , &C3C3, &0 
DATA &0,85A0, &5A0, 850, &5A0, &DB0, &DB0, &1DB8 

DATA &399C,8799E,8718E,8718E,86186,84182,80,80 

note musique: 

DATA 1, 1, 1, 0, 1 

DATA 8&1E0,R1E0,&1F8,&1FE,RI1FE,81FE,&1FE,&1EE 

DATA &1F0,8&1FE0,&1FEO,&7FE0,&7FE0,&7FC0,8&1F80,&1F00 
DATA &O,&CO0,8C0,&F8,&FC,&FC, C4, 8C0 

DATA &CO, &C0, &FCO,&FCO,&3FCO, 8&F00, &F00, &0 

disquette: 

DATA 1, 1, 1, 0, 1 

DATA &FFFF,&FFFF,&FFFF,&FFFF,&FFFF,&FFFF,8FFFF,&FFFF 
DATA &FFFF,&FFFF,&FFFF,RFFFF,BFFEF,RFFFF,&FFFF,&FFFF 
DATA 8&0,87FFE,87FFE, 86006 ,&6FB6 , 86006 , &6AF6, 86006 
DATA &7FFE,8/FFE,&703E,8&77BE,&77BE,&703E,&7FFE, 80 


ordinateur: 


DATA 1, 1, 1, 0, 1 

DATA &FFFF,&FFFF,8FFFF,&FFFF,&FFFF,&FFFF, BFFFF,BFFFF 
DATA &FFFF,RFFFF,&FFFF,8FFFF,&FFFF,REFFF,BFFFF, BEFFF 
DATA 8&0,87FFE,84002,85212, &5A3A, &5E7A, B5EFA, 84002 


DATA &7FFE,8240,87FFE,&4002,&555A,84002,&7FFE,&0 


document : 

DATA 1, 1, 1, 0, 1 

DATA &7FFE,8&7FFE,&7FFE,&7FFE,&7FFE,8&7FFE,87FFE,&7FFE 
DATA &7FFE,&7FFE,&7FFE,8&7FFE,&7FFE,&7FFE,&7FFE, &0 
DATA 80,83FFC,&2004,8&2DD4,82004,&2FD4,82004,82BF4 
DATA 82004, 8&2FF4,82004,8&2AE4,82004,&3FFC,&0, &0 
personnage: 

DATA 1, 1, 1, 0, 1 

DATA &FF8,R1FFC,&3FFE,&3FFE,&3FFE,R3FFE,R3FFE,83FFE , 
DATA &3FFE,&1FFC,&1FFC,RFFC,&7FF8,87FF8,8&7FFO0,87FE0 
DATA &7F0,&FF8,&1FEC, 81804 ,81804,&1004,81E3C,&1754 
DATA &1104,8&B28,8DD8,8628,&7D0,82F10,8&39E0,83800 
tombe: 

DATA PIS A0 STI 

DATA &7EO,&FFO,BFF8,R3FFC,&7FFE,&7FFF,87FFF,87FFF 
DATA &7FFF,R3FFF,&FFF,&FF8,8FF8,8FF8,87F8,&3F0 

DATA 80,87E0,8430,8430,83C3C,82006,82006 ,82006 

DATA &3C3E,8&43E,8430,8&430,8430,8&7F0,&3F0, 80 

doi lard: 

DATA MIRE OS EIRE 

DATA &180,87F0,&FF8,RFF8,&1FF0,R1FFO,&1FC0,&1FEO 


DATA &1FFO,RFFS8,87F8,8FF8,81FF8,81FF8,&1FFO,&FCO 


DATA 80,8180,8&7F0,&7F0,&FF0, &E00, &E00, &FCO 

DATA &FCO,&7F0,870,870,&FF0,8FFO, &FCO,&180 

livre: 

DATA 1, 1, 1, 0, 1 

DATA &1E0,8&3F0,&7F0,&FEO, &F00,8&F00, &F00, &F00 

DATA &3FF0,&3FF0,83FF0,RF00,8FFB,R3FF8,83FF8,83FF8 
DATA 80,81F0,83E0,8&700, 8600, 8600, &600,&600 

DATA &600,&1FE0, &600, &600, 8600, &FFO,&1FF0, 80 

alpha: 

DATA 1, 1, 1, 0, 1 

DATA &0,80,8E30,&1FF8,8&3FF8,8&3FF0,83FC0,8&3FC0 

DATA 83FC0,83FF0,83FF8,83FF8,8&1F38,&E00, 80, &0 

DATA 80,80,80,8E30,81F70,819C0,&19C0,&1080 

DATA 8&1080,819C0,8&1F70,&1F70,8E30, 80,80, 80 

beta: 

DATA 1, 1, 1, 0, 1 

DATA &1E00,&7F00,&FFCO,&FFCO,&FFCO, &FFCO, &FFCO, &FFCO 
DATA &FFCO, &FFCO, &FFCO, &FFCO, &FFCO, &FF00, &FF00, &F800 
DATA &0,8&C00,8&3E00,87380,87380,87380,87380,&7E00 
DATA 8&7380,87380,8&7380,8&7380,87E00,87600,&7000, &4000 
omega: 

DATA 1, 1, 1, 0, 1 
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DATA &F00,83F80,&7FCO,&FFEO,&FFEO,RFFEO, &FFEO, &FFEO 
DATA &7FCO,87FC0,&7FCO,&FFEO, &FFEO,8FFEO, 87FC0,83F80 
DATA 8&0,8&F00,&3B80,&70C0,&70C0,&70C0,&70C0,&70C0 
DATA &3B80,8&3B80, 4800, &4B40, &7BC0, &7BCO,83B80, 80 


pi: 

DATA 1,1,1,0,1 

DATA &6,8F,&1FFF,R3FFF,&7FFF,&FFFE, BFFFC, &FFFB 
DATA &FFFO,&6FFO,8FFO,&FFO,&FFO,&FFO,&FFO,87F0 
DATA 80,86,86,8&1FFE,&1FFE,&7FF8,87FF8,86660 
DATA &6660,8660,8660,8660, 8660, 8660, &660, 80 


symbole gfa: 

DATA 1,1,1,0,1 

DATA &FFFF,&FFFF,8FFFF,8FFFF,&FFFF,&FFFF,&FFFF,&FFFF 
DATA &FFFF,&FFFF,&FFFF,BFFFF,BFFFF,BFFFF,&FFFF,&FFFF 
DATA &O,8&3E,&3F3E,&7FB0,87FBC,873BC,&73B0,87030 

DATA 8&7780,8779C,873BE,&7FB6,87FBE, &3F3E, 836,80 


symbole personnel _ auteur: 

DATA 1,1,1,0,1 

DATA &FFFF,@FFFF,&FFFF,8FFFF,@FFFF,&FFFF,&FFFF,&FFFF 
DATA &FFFF,&FFFF,&FFFF,&FFFF,&FFFF,&FFFF,&FFFF,&FFFF 
DATA &0,8&7O0FE,&70FE,&70EE,&/0EE,&70EE,&70FE, &70FE 
DATA &70FE,&70FE,&70F0,870E0,87EE0,8&7EF0, &7EE0, 80 
symbole chaotique: 

DATA 1,1,1,0,1 

DATA &FFFF,&FFFF,BFFFF,&FFFF,BFFFF,&FFFF,&FFFF, BFFFF 
DATA &FFFF,&FFFF,8FFFF,@FFFF,&FFFF,&FFFF,BFFFF,8FFFF 
DATA &0,8718E,873CE,8&799E,&1DB8, &DB0,&2004,87E7E 
DATA &7E7E,82004,RDBO,&1DB8,8799E,8&73CE,8718E, 80 


DATA -1 


DROIT AR RER ARRET A ARR ARE OR ARR 


L + * 
‘ # GENERATION DE FICHIERS CODE POUR FORME DE SOURIS * 
U x 4 * 


IEP ETETTTTTITITILIILILS IS LLILES SSI LES S SSSR ESS), Si) 


! (c) 1989 Patrick Leclercq & ATARI MAGAZINE 

DORA RRR ROM OROROUE RER DER CR AC A ARR AAC AE HARRIS 
! * Cet utilitaire génére un fichier .LST de codage de * 
souris à partir d'une image DEGAS ELITE contenant * 
les formes et les masques des souris. Les positions* 
des données graphiques sont mémorisés dans des Ÿ 


lignes de DATA en fin de programme. # 
} RORROROR RUE EE ARR ADR A RERO AR RAA 


* 
* 
EUX 
* 


‘ + La forme de souris et le masque doivent être s 
‘ + dessinés avec des points de couleur 1 sur un fond * 
‘x de couleur 0. Le programme de conversion fonctionne* 
‘ * dans les 3 modes graphiques de l'ATARI. pe 


DORE RER RE RROR OR RAR AOR ARR RER RAR RERO OR ARR RAA RAA A ARR 


——_—_———_———— 


RESERVE 50000 ! RESERVATION DE MEMOIRE POUR LE BASIC 


@codage ! APPEL ROUTINE PRINCIPALE 
END | FIN DU PROGRAMME 





D ORRIOR AR AR RAR RAR ROR RER HORAIRE AR ARR AUK 


* CHARGEMENT D'UNE IMAGE DEGAS SUR L'ECRAN * 


ÉTTTTLLIITLILISISLSSIILILLELT LTNNSERSLESESS ES), 


6 ARR CE RE ARR RO ER EE KR ROUE KR RRUORR 


" x Format image DEGAS: Le 
! x _ 34 octets contenant la résolution À 
! *. et la palette de couleur; 3 
x _ 32000 octets contenant l'image F 


PPS TT TITLES LITITITTITITI LIL LIL ES ELLES SSSR ES SE) 


*Paramétre: nom$ contient le nom de l'image à charger* 
je ee de ee 2 AE DE CE DRE RAA AR RTE A ARR CE ARR 
PROCEDURE lec_degas (nom$) 

OPEN “I",#1,nom$! OUVERTURE DU FICHIER EN LECTURE 


SEEK #1,34 | PLACER POINTEUR FICHIER AU DEBUT IMAGE 
BGET #1,XBIOS(2),32000 ! CHARGEMENT IMAGE DANS ECRAN 
CLOSE #1 | FERMETURE DU FICHIER 

RETURN 





! D eee ee RER ERA RE RAA RAR RO OA A RAA 
1‘ x CODAGE LIGNE DE 16 PIXEL SOUS FORME NUMERIQUE  * 
1 JE Le DK DRE DER DD EEE DR RERO RARE 
‘ *Paramétres: px% et py# position de la ligne à coder.* 
1 HE HER ROROR DRE OH RÉ He ee AA ARR RCE AA HRK 
FUNCTION lec ligne(px%,py#) 

LOCAL x%,v%,1% | DECLARATION VARIABLES LOCALS 


v#=0 | INITIALISATION VALEUR 


XE=pX% ! INIT POSITION X DE TEST 


FOR i%=15 TO O STEP -1 ! BOUCLE DE LECTURE 
CH=POINT(x%, py%) 1 LECTURE COULEUR POINT (x%,y%) 


IF c#<>0 | TEST SI COULEUR <> 0 
Ve= VE +27 1% | MISE A JOUR DE LA VALEUR NUMERIQUE 
ENDIF 
INC x% ! INCREMENTATION POS X DE TEST 
NEXT i% ! FIN BOUCLE DE LECTURE 
RETURN v# 1! RENVOI DE LA VALEUR NUMERIQUE 


ENDFUNC 


(DÉS RS SEE RN ee PR 1 EU PSE TER PS SR POUR EE Qu LE RER EEE BEST 
À HD HARRIS HER DRE 
‘* CONVERSION D'UNE FORME 16X16 PIXELS EN CODAGE HEXA * 
À ARR HER DH HER HERO A EIRE RAR 


À HORAIRE DD ACER RE DAC A EEE OR RAA ARR 


1x Les 16 chiffres hexadécimaux représentant le codage* 
‘x de la forme sont sont générés sous la forme de deux* 
'# Tignes de-DATA. * 
1xDATA 8xxxx, BOX BXXXX, BOO0, BXXXX 3 BXXXX, BOOK, BXXXXŸ 
1XDATA BXXXX, &XXXX, BXXXX 3 BOOXX, BXXXX, BXXXX, BOX, BXXXXŸ 
À ee eee De KR RO OE eRORR C E ARE EARRERE  R RARR A RARE 
‘x Cette procédure utilise la fonction lec ligne qui * 
‘* convertis une ligne graphique de 16 pixels en un  * 
‘* nombre entier. ‘à 
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EEE 


mé marte eh TT ÉETRe 


EFTTTETETTT TT TITI LISSLISRS LI ILSISIIIS IS SL TC SEULE... 


1* Paramétres de la routine : k # 
*  px% : position X de la forme à convertir # 
1*  py% : position Ÿ de la forme à convertir # 
D AE SD DE OR RER OR RE RR  RR RR A RO RR AURA 
'* VARIABLES LOCALES : : 


1 j% : Indice de boucle (1 à 16) #0 


‘x. y# : Position Y de la ligne de pixel à convertir* 
SR ee de ee DE DE ARR RAA ARR He KR AREA ARR 
1* REMARQUE: L'instruction HEX$(v#,4) permet de * 
1* convertir le nombre v% en une chaine hexadécimal de* 
x 4 caractéres (par exemple, la valeur O0 donneras à 
‘* Ja chaine "&0000!"). # 
LR RRE HORAIRE 
PROCEDURE lec_forme(px%, py#) 

LOCAL i%,y% | DECLARATION VARIABLES LOCALS 


PRINT #2,"DATA ";  ! INSTRUCTION DATA PREMIERE LIGNE 


Ye=pY* ! INITIALISATION POS PREMIÈRE LIGNE 
FOR i%=1 TO 16 | DEBUT BOUCLE 


vx=@lec ligne(px#,y#)! LECTURE LIGNE DE POSITION y* 
IF (i%<>8) AND (i%<>16) 
PRINT #2,"&"3;HEX$(v%,4);","; LECRITURE FICHIER 
ENDIF 
IF i%=8 ! GENERATION DE LA FIN DE LA PREMIERE LIGNE 
PRINT #2,"&";HEX$(v%,4) ! DERNIERE VALEUR 


PRINT #2, "DATA "; | DATA SECONDE LIGNE 
ENDIF 
IF i%=16 ! GENERATION DE LA FIN LIGNE 2 


PRINT #2,"&":HEX$(v%,4) IDERNIERE VALEUR LIGNE 2 
PRINT #2 
.ENDIF 
INC y% ! PASSAGE À LA LIGNE DE PIXEL SUIVANTE 
NEXT i% ! FIN BOUCLE 
RETURN 





DORE RA ARR RORR RER R EN AA A URUEROROROMOR IR KR AURA 


‘x ROUTINE PRINCIPALE DU PROGRAMME * 


DORE AKRERERÉRE RER AA AURA ER RERRERRRE 


TU OHRARRRREXEERKAN EEE RRREREREERÉRERRÉRERÉAREARERARAAREE 


! * VARIABLES LOCALS: ‘à 
 * jmage$: Nom de l'image contenant les formes de * 
HE souris. # 
4  nomÿ : Nom du fichier .LST généré par le pra. * 
Ai et contenant le codage BASIC des souris.* 
‘x px _forme% : Position x de la forme de souris. * 
"x py_forme% : Position Y de la forme de souris. * 
‘ * px masque%: Position X du masque de la souris. Fa 
x 


py_masque#: Position Ÿ du masque de la souris. * 
! RAR RO REED A ER ER KR ARR RER RER N RAR RER RIRE EE AE 


PROCEDURE codage ; 


LOCAL image$,nom$,px_forme%, py_forme 

LOCAL px masque%,py_masque“ 

READ image$ ..! LECTURE NOM IMAGE DEGAS ELITE 
@lec degas(imagef) ! CHARGEMENT DE L'IMAGE 


READ nom$ } NOM DU FICHIER .LST A ECRIRE 
OPEN ‘“o",#2,nom$ .! OUVERTURE FICHIER .LST 


DO 
READ px_forme* ILECTURE PREMIERE DONNEE SOURIS 
EXIT IF px forme#=-1!TEST SI FIN DE DONNEES 
READ py_ forme ILECTURE POSITION Ÿ FORME SOURIS 


READ px masque* ! LECTURE POSITION X MASQUE SOURIS 
READ py masque% ! LECTURE POSITION Y MASQUE SOURIS 


PRINT #2,"DATA 1,1,1,0,1" ILIGNE PARAMETRES SOURIS 
lec_forme(px masque“, py_masque*) ! MASQUE SOURIS 
lec forme(px forme“, py_forme“) | FORME SOURIS 


PRINT #2,"'" ! LIGNE REM 
LOOP 
CLOSE #2 { FERMETURE DU FICHIER ECRITURE 
RETURN 


———— 


* 
ÉTILIILLLELLLEIE LE ELEEÉENLE 


* FORMAT DES DONNEES * 

KRKHKKEKEERERKRAKEEERRRRR A 

DATA Nom image DEGAS ELITE 

DATA Nom fichier .LST à générer 

DATA Position X forme souris 1, Pos YŸ forme souris 1 
DATA Position X masque souris 1, Pos Ÿ masque souris 1 
DATA Position X forme souris 2, Pos Ÿ forme souris 2 
DATA Position X masque souris 2, Pos Ÿ masque souris 2 
DATA —— : — j 
DATA Position X forme souris n, Pos Ÿ forme souris n 
DATA Position X masque souris n, Pos Y masque souris n 
DATA -1 


—_—__————————————————.“ñ—û—û—— a 


PPTTTTTTILIIILIÉELÉSELELELESLS EEE SE) 


*. EXEMPLE DE DONNEES DE SOURIS * 


ÉTETTILLLLILLILISLLETLEESS ELLE ESS ESS) 


DATA SOURIS.PI1 
DATA SOURIS. LST 


DATA 5, 2 
DATA 5, 19 


DATA 22, 2 
DATA 22, 19 


DATA —1 
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GRAPHISME STE EN GFA BASIC 






FONCTIONS 
QUES DU STE (1) 


Maitriser le STE 


Cet article en deux parties a été écrit afin de vous montrer 
comment intégrer ses possibilités graphiques du STE dans vos 
programmes en GFA Basic. 


Palette de couleurs 


Les couleurs des STF peuvent être choisies parmi une palette de 512 
couleurs tandis que celles des STE PR être choisies parmi une 
palette de 4096 couleurs. 


Système RVB 


Les couleurs sont fabriquées en mélangeant trois couleurs de bases. 
Ces couleurs «élémentaires» sont le rouge, le vert et le bleu (d’où le 
nom de RVB).: Chaque couleur élémentaire est divisée en un certain 
nombre de niveaux de couleurs. Le premier niveau correspond au 
noir, et le dernier niveau correspond à une couleur très lumineuse. 
Le nombre de couleurs intermédiaires dépend du nombre de niveaux 
de couleurs. Si les trois couleurs de base sont au niveau le plus faible, 
la couleur résultante est le noir. Par contre, si ces couleurs sont à leur 
niveau le plus fort; la couleur résultante est le blanc. 


De 512 à 4096 couleurs 


La palette de couleur du STF est codé sur 3 bits. Cela donne huit ni- 
veaux de couleurs (8=2"3). Chacune des trois couleurs élémentaires 
peut prendre huit teintes différentes. Ce qui représente 8x8x8 (512) 
couleurs possibles. La définition d’une couleur se fait avec l’instruc- 
tion SETCOLOR. Cette instruction peut être utilisée de deux manières 
différentes: en donnant les composantes RVB de manière individuel- 
le, ou en donnant un seul chiffre contenant le codage de la couleur. 
Chaque technique posséde ses avantages et ses inconvénients. 


SETCOLOR c,rouge,vert,bleu 

SETCOLOR c,mélange 

La formule permettant de calculer la valeur de la variable mélange 
est la suivante: melange-rouge*256+vert*16+bleu. 


On obtient la couleur noire avec les trois composantes RVB à 0 
(SETCOLOR c,0,0,0). La couleur blanche est obtenue en mettant les 
trois composantes RVB à leur valeur maximale (SETCOLOR 
c,7,7,7). 


Instruction VSETCOLOR 


Les routines graphiques du GÆA Basic ont étés écrites en utilisant les 
fonctions graphiques internes au ST (système graphique VDI). Ces 
fonctions sont pratiques et puissantes, mais elles ont un bug très cu- 
rieux: elles utilisent leur propre table de chiffres pour gérer le 
numéro des couleurs. 

La fonction SETCOLOR utilise le vrai numéro de couleur alors que les 
autres instructions du GEA Basic (COLOR, DEFFILL etc.) utilisent la 
table de couleur spécifique au VDI. Pour prendre un exemple précis, 
si un programme change la définition de la couleur 1 avec SETCO- 
LOR, c’est la couleur 15 qui va être modifiée. 


SETCOLOR 1,7,0,0 


L'instruction VSETCOLOR est une instruction qui corrige le bug de 
couleur. Elle possède sa propre table de conversion et permet de mo- 
difier une couleur sans se soucier des problèmes de transcodage de 
couleur. 


VSETCOLOR 1,7,0,0 


Affichage de l'ancienne palette 


Le programme suivant affiche successivement toutes les 512 couleurs 
de la palette STE Il utilise l'instruction SETCOLOR pour changer les 
couleurs. 


2 MODEM DEMO DH M DGA 


?* PALETTE STE * 
D ADR DE DE DE DE D DÉMNANE ADE 
FOR rouge%=0 TO 7 
FOR vert#%=0 TO 7 
FOR bleu%=0 TO 7 
VSYNC 
SETCOLOR 0,rouge%,vert%,bleu* 
NEXT bleu 
NEXT verts 
NEXT rouge“ 
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SEXCCISSS 


Dégradé sur 512 couleurs 


Le programme suivant affiche un dégradé de couleur rouge. Pour ob- 
tenir un rouge pur, les composantes RVB vert et bleu sont mise à 0. 
Ce programme affiche huit bandes de couleurs d’une largueur de 
320 pixels et d’une hauteur de 8 pixels. 


FOR i%=0 TO 7 
VSETCOLOR i%,1%,0,0 
NEXT 1% 

py#=72 

FOR i%=0 TO 7 
DEFFILL i% 

PBOX 0,py%,319,py%+7 
ADD py#,8 

NEXT i% 

VOID INP(2) 

END 


LA 


Palette de couleur étendue du STE 


La palette de couleur du STE fonctionne selon le même principe 
que la palette du STE, mais elle possède une structure légèrement dif- 
férente. Les composantes RVB sont codées sur 4 bits. Cela représente’ 
seize combinaisons différentes (2*4=16). Puisque chaque composan- 
te de couleur peut prendre seize valeurs différentes, il peut y avoir 
16x16x16 couleurs, c’est-à-dire 4096 couleurs différentes. 

Les concepteurs du STE ont réalisé un système de codage des cou- 
leurs compatible avec le codage des couleurs STE C'est-à-dire qu’un 
codage de couleur STF fonctionnera sur STE. Cette compatibilité 
est réalisée en rajoutant une nuance intermédiaire entre chaque cou- 
leur STE Celle-ci est codée avec le quatrième bit. Il y a donc huit co- 
dages RVB compatibles avec le STE, et huit codages RVB non com- 
patibles STF qui sont des nuances intermédiaires. 


Affichage de toutes les couleurs STE 


L'affichage des couleurs STE se fait de la même manière que sur le 
STE, sauf que les codages RVB varient de O à 15, et non plus de 0 à 7. 


FOR rouge%=0 TO 15 
FOR vert%=0 TO 15 
FOR bleu%=0 TO 15 
VSYNC 
SETCOLOR 0,rouge“,vert%,bleu“ 
NEXT bleus 
NEXT vert* 
NEXT rouge 


Affichage d'un dégradé de couleur: 


Pour réaliser un dégradé de couleur sur STE, il faut afficher les cou- 
leurs dans l’ordre de leurs nuances. A cause du codage particulier du 
STE, il faut afficher les couleurs dans l’ordre suivant: 0, 8, 1, 9, 
2408, 011304; 12/2813 6, A7 161 

Le plus simple est d’utiliser l’instruction VSETCOLOR, comme sur 


STEpour écrire le programme simplement. Hélas, cela ne marche 
pas sur les GFA Basic 3.x (sauf pour la version 3.5E qui fonctionne 
d’une manière un peu particulière). La raison de ce non-fonctionne- 
ment nous est inconnue. Le programme suivant vous montre ce que 
pourrait être une routine d'affichage de dégradés si l'instruction 
VSETCOLOR fonctionnait correctement sur STE. La séquence des 
codes RVB est stockée au début du programme dans des lignes de 
DATA. 


DATA 0,8,1,9,2,10,3,11 
DATA 4,12,5,13,6,14,7,15 
! 

FOR col%=0 TO 15 

READ rouge“ 

VSETCOLOR col%,rouge#,0,0 
NEXT col% 
py#=36 

FOR i%=0 TO 15 

DEFFILL 1% 

PBOX 0,py%,319,py%+7 
ADD py#,8 

NEXT i% 

VOID INP(2) 

END 


Pour obtenir un dégradé correct, il faut écrire une routine équivalen- 
te à la fonction VSETCOLOR Pour cela, il faut créer une table numé- 
rique qui permet de convertir un numéro de couleur VDI en 
numéro de couleur réel. Dans le programme d’exemple suivant, La 
table de conversion est stockée dans le tableau couleur vdi(). Les 
données de conversion sont définies dans des lignes de DATA. La rou- 
tine set_color émule sur un STE l’instruction VSETCOLOR. Atten- 
tion: pour utiliser correctement set_color, il faut absolument avoir 
initialisé la table de conversion avec la routine init_couleurs_vdi. . 


LOKREKKAKREKKERRRRAAKAREREE 


! * AFFICHAGE DEGRADE * 
! # ROUGE SUR STE * 


V'OXKAKKAKAKAKAEERRERERRREXE 


DIM couleur vdi(16) f 


@init couleurs vdi 

1 

degrade: 

DATA 0,8,1,9,2,10,3,11 
DATA 4,12,5,13,6,14,7,15 


couleurs _vdi: 
DATA 0,15,1,2,4,6,3,5 
DATA 7,8,9,10,12,14,11,13 
L 
RESTORE degrade 
FOR col%=0 TO 15 
READ rouge 
@set_color(col%, rouge#,0,0) 
NEXT col 
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py#=36 

FOR i%=0 TO 15 
DEFFILL i% 

PBOX 0,py%,319, py#+7 
ADD py#,8 

NEXT i% 

VOID INP(2) 

END 


LOKAKKEKERERRRAÉEAR RAA ARE NE R 


" * INITIALISATION TABLE * 
! # CONVERSION COULEURS  * 
LOKKKKKREERERERERRAR ER AREAR 
PROCEDURE init _ couleurs vdi 
LOCAL i% 

RESTORE couleurs vdi 

FOR i%=0 TO 15 

READ couleur vdi(i#) 

NEXT i%° 
RETURN 


LOXAKKAKKAKRERERERARARE REX 


‘ # ROUTINE EQUIVALENT * 

‘4  VSETCOLOR pour STE * 
IMPTTILTELLLSILLLLIZLLETSESS ES 
PROCEDURE set _color(nc%,r%,v#,b%) 
LOCAL mx 

mé=r#*256+Vv%*16+b% 

SETCOLOR couleur vdi(nc#) ,m*% 
RETURN : 


Variations dans les dégradés 


Les programmes d'exemples n’affichent que des dégradés de rouge 
pur, mais vous pouvez afficher aussi des dégradés de vert ou de bleu 
en modifiant l'appel à la routine set_color 


! DEGRADE DE VERT 
@set_color(col,0,i%,0) 


! DEGRADE DE BLEU 
@set color(col,0,0,1%) 


En utilisant des mélanges de couleurs, vous pouvez réaliser beaucoup 
de dégradés différents. Avec la technique présentée ici, il peut y avoir 
256 dégradés différents. Ce nombre est obtenu en multipliant le 
nombre de couleurs fixes possibles (16*16=256). 


! DEGRADE QUELCONQUE 
@set_color(cof,2,8,i%) 


Fabrication de dégradés aléatoires 


Ce programme d’exemple affiche une série de dégradés choisie au ha- 
sard. Les couleurs constantes sont déterminées aléatoirement avec la 
fonction RANDOM. La composante RVB de la couleur de dégradé varie 


de 1 à 15, et non de O à 15. Céla permet d’avoir toujours le fond de 
l'écran en noir. 

L'affichage des barres de couleurs est réalisé une fois pour toutes, Le 
programme affiche un nouveau dégradé en changeant uniquement la 
palette de couleut grâce à la fonction XBIOS (6). La routiné 
@new color ne modifie pas directement la palette de couleur cou- 
rante, mais agit sur une palette stockée dans la zone mémoire d’a- 
dresse adrpal. Le programme affiche une nouvelle palette tant que 
l'utilisateur ne presse pas sur la touche [ESC]. 


LOKXKKKRKKKRREAERAAKANEAAEERAEARAX 


‘ x AFFICHAGE DE DEGRADES * 
Ex ALEATOIRES x 
ME TTIIILLLESÉREESS TESTS SEEN, ES 
DIM col vdi%(16) 

DIM degra%(16) 


adrpal%=MALLOC(32) 
@init_ couleurs vdi 
@init_degrade 
@calcul. dégrade 
@aff_degrade 


DO 
 @calcul_degrade 
PAUSE: 18 
EXIT IF INP(2)=27 
LOOP 
VOID MFREE(adrpal#) 
END 


PROCEDURE init_degrade 
LOCAL 1% 
RESTORE degrade 
FOR i%=0 TO 15 
READ degra%(i) 
NEXT i% 
RETURN 


L'OKKRKAKAKKÉRERERERERERARERAUE 


" * INITIALISATION PALETTE * 
! + COULEUR POUR DEGRADE  * 
LORKKREKKREEKRKRAKERAE RARE ÉRE RÉ 
PROCEDURE calcul degrade 
LOCAL v%,b%,r*% 

LOCAL alea* 

1 

v%=RANDOM(15) 

b%=RANDOM(15) 

r%=RANDOM(15) 
alea%=RANDOM(3)+1 


@new color(0,0,0,0) 
FOR i%=1 TO 15 
SELECT alea*% 
CASE 1 
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@new_color(i%,r%,v#,degra(i)) 


CASE 2 
@new_color(i%,r%,degra%(i) ,b#) 
CASE 3 ‘ 
@new color(i%,degra%(i),v%,b#) 
ENDSELECT à ) 

NEXT i% 

VOID XBIOS(6,L:adrpal#) 


RETURN 


LOKRRARAARAAREAKRAARAERARE | 

" # AFFICHAGE DEGRADE * 
L'XKAKKKAKAKKERKRERERKRKEKRAEX 

PROCEDURE aff _degrade 
LOCAL py#%,i% 


py%=36 

FOR i%=0 TO 15 

DEFFILL 1% 

PBOX 0,py%,319,py%+t7 

ADD py%,8 

NEXT 1% 
RETURN , 

ll 
degrade: 
DATA 0,8,1,9,2,10,3,11 
DATA 4,12,5,13,6,14,7,15 
DATA -1 

PROCEDURE new color(nc#,r%,v,b%) 
LOCAL m%,adr*% 
mé=r%*256+v%*16+b% 
adr#=adrpal#+col_vdi%(nc#) *2 
WORD {adr%}=m# 

RETURN 

PROCEDURE init couleurs vdi 
LOCAL i% 

RESTORE couleurs vdi 

FOR i%=0 TO 15 

READ col_vdi(i%) 

NEXT 1% 

RETURN 

couleurs vdi: 

DATA 0,15,1,2,4,6,3,5,7 
DATA 8,9,10,12,14,11,13 


Gestion des couleurs en GFA Basic 3.5E 


Le GEA Basic 3.5E est une version du GÆA Basic spécialement 
adaptée au STE. L'instruction VSETCOLOR ne fonctionne pas de la 
même manière que les autres version du GEA Basic. La séquence des 
codes RVB à été modifiée. Les codes RVB STE sont maintenant dans 
l’ordre. Pour afficher un dégradé de couleur, il suffit d’afficher les 
composantes RVB de O à 15. 


LV OXKKKKEKREEKERERRAEKRERERERERE 


! * AFFICHAGE DEGRADE ROUGE * 
! + AVEC GFA BASIC 3,5E * 
LOKEKEKÉRRARRRERERERRERRREEREX 
FOR i%=0 TO 15 

VSETCOLOR 1%,1%,0,0 

NEXT i% 
py=36 

FOR i%=0 TO 15 

DEFFILL 1% 

PBOX 0,py%,319,py%+7 

ADD py#%,8 

NEXT 1% 

VOID INP(2) 

END 


Cet exemple ne fonctionnera qu'avec le Basic GFA 3.5E alors que 
l'exemple précédent fonctionnera sur tous les GFA Basic de série 3.x 
(y compris le GFA Basic 3.5E),. 


Scrolling vertical 


L'image affichée sur l’écran est la transcription du contenu d’une zo- 
ne mémoire, Cette image est redessinée 50 fois par seconde, Le dessin 
est fait par un point lumineux (appelé spot vidéo). Au niveau inter- 
ne, le circuit électronique d'affichage lit l'adresse de la mémoire 
écran et affiche les données contenues dans cette zone mémoire sur 
écran. Cette opération s'appelle un rafraîchissement vidéo. 

La fonction XB10S(5) du GFÆA Basic permet de changer l'adresse de 
la mémoire vidéo. En modifiant cette adresse, ‘on peut réaliser un 
scrolling très rapide. La mémoire écran de la basse résolution est or- 
ganisée en ligne de 160 octets. Pour décaler l'écran d’une ligne, il suf- 
fit donc de modifier l'adresse de la mémoire vidéo de 160 octets. 

Le STE permet de positionner la mémoire vidéo à n'importe quelle 
adresse de l'écran. Cela permet de réaliser des scrollings très fins. Le 
STE ne permet de positionner la mémoire écran que sur des adresses 
multiples de 256, C’est inutilisable pour un scrolling ligne par ligne. 


Instruction XBIOS(5) 


L'instruction XBIOS(5) est une instruction qui permet de changer 
Vadresse des écrans physiques et logiques ainsi que la résolution du 
système. Sa syntaxe est la suivante: 


VOID XBI0S(5,L:10g, L:phys, res) 
log : adresse écran logique 
phys : adresse écran physique 
res : résolution écran 


La résolution ne peut pas être changée en GÆA Basic, car GEM ne re- 
connaît pas le changement de résolution. Ce changement ne peut 
être réalisé qu'avec des programmes entièrement TOS, alors que le 
GEFA Basic ne génère que des programmes GEM. Attention: un pro- 
gramme GEM avec une extension .PRG ne devient pas un program- 
me TOS si son extension est renommée en . TOS. 

L'adresse de l’écran physique est l'adresse de la mémoire qui sera affi- 
chée sur l'écran vidéo, alors que l'adresse de l'écran logique est l’a- 
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dresse de la zone mémoire où fonctionneront les instructions gra- 
phiques du GFA Basic. Grâce à ce système d'écran physique et lo- 
gique, le ST peut très bien afficher une image pendant qu’il est en 
train d’en dessiner une autre en mémoire. Si un paramétre ne doit 
pas être modifié, il faut lui donner la valeur -L L'exemple suivant 
appelle l'instruction XBIOS(5) sans rien modifier. Cela ne sert à 
rien, mais c’est un exemple aussi valable qu’un autre. 


VOID XBIOS(5,L:-1,L:-1,-1) 


Attention: La modification de l'adresse de la mémoire vidéo n'est 
pas immédiate. Le système d'affichage ne change l'adresse vidéo que 
lorsqu'il recommence une phase d'affichage. Et il n’y a que cinquan- 
te affichages par seconde, Si un programme modifie plusieurs fois l’a- 
dresse de la mémoire vidéo alors que le système est encore en train 
d'afficher l’ancienne page vidéo, seule la dernière modification sera 
prise en compte Pour éviter cela, il faut attendre un réaffichage 
vidéo après chaque changement de mémoire écran. L'instruction 
VSYNC est la solution à ce problème: elle bloque l’exécution du pro- 
gramme tant que l'affichage de l’écran n’est pas fini. 


VOID XBIOS(5,L:-1,L:adr ecr,-1) 
VSYNC 


Remarque: La syntaxe L:var signifie que le programme doit trans- 
mettre une valeur entière 32 bits à la fonction XBI10S. Si vous oubliez 
le symbole ‘L:', vous risquez de gros ennuis, voire même de beaux 
plantages. 


Scrolling vertical pixel par pixel d’une image 


Voici un exemple de réalisation pratique du scrolling vertical par mo- 
dification de la mémoire écran. Le programme crée une zone de tra- 
vail de 64000 octets. Cette zone est divisée en deux zones mémoire 
de 32000 octets. Chacune de ces deux zones mémoire a la taille d’u- 
ne zone écran. Lors de l’initialisation, le programme charge une ima- 
ge au format Degas Elite dans chaque zone mémoire. Il déclare ensui- 
te l'adresse travail comme nouvelle mémoire écran. L'image IMG ap- 
paraît immédiatement à l'écran puisqu'elle se trouve maintenant 
dans la mémoire écran. Le programme déplace verticalement l’écran 
d’une ligne en incrémentant l'adresse de la mémoire vidéo de 160 oc- 
tets. L'utilisateur à l’impression que l’image est montée d’un pixel et 
qu’une nouvelle ligne est apparue en bas de l’écran. Cette nouvelle 
ligne est la première ligne de l’image IMG2 En répétant 200 fois cette 
opération, on va voir l’image IMG1 disparaître vers le haut de l'écran 
et l’image IMG2 va apparaître à partir du bas de l'écran. Une fois la 
première boucle terminée, la mémoire écran se trouve alors à l’adres- 
se travail+32000, c’est-à-ire à l’adresse de l’image IMG2 L'image IMG1 
a complètement disparu de l'écran. Pour inverser le processus et reve- 
nir à l’image IMGL il faut modifier à nouveau l'adresse de la mémoire 
vidéo. La seconde partie du programme effectue un nouveau scrol- 
ling en décrémentant la mémoire vidéo par tranche de 160 octets. La 
mémoire vidéo revient à son ancienne valeur. Le spectateur voit Pi- 
mage IMG2 disparaître vers le bas et l’image IMG1 apparaître à partir 
du haut de l’écran. 


1 OKKKKAKAEAKEKEREERRERAEX 


"x SCROLLING  * 

‘ k LIGNE PAR LIGNE * 
IMPTTITILLILLELÉELSLSLSSS: 
RESERVE 100000 
travai1%=MALLOC(64000) 
adr%=travail# 
@load_degas("IMG1.PI1",adr#) 
adr%=travail#+32000 
@load_degas("IMG2.P11",adr#) 


D OKKKKKREARRERÉAARERARRRRRRAK 


! x  SCROLLING VERS LE BAS * 
LOKKEKXKEKXARKRKERKRARRRREXEEXEE 
adr%=travail# 

VOID XBIOS(5,L:-1,L:adr%,-1) 
VOID INP(2) 

FOR i%=1 TO 200 

ADD adr%,160 

VOID XBIOS(5,L:-1,L:adr%,-1) 
VSYNC 

NEXT i% 


VOID INP(2) 


LORAKARERERRARRRERRRAREREURAR 


! * SCROLLING VERS LE HAUT * 
LOKKEKKERERRRRRRARARERERERARAE 
FOR i%=1 TO 200 

SUB adr%, 160 

VOID XBI0OS(5,L:-1,L:adr%,-1) 


VSYNC 
NEXT i% 

VOID MFREE (travail) 
END \ 


1 'XKKKKKRARRRAKERREKARERXEE 


! X CHARGEMENT IMAGE * 

! # DEGAS ELITE À UNE * 

! x ADRESSE MEMOIRE # 

! x QUELCONQUE. je 

LV ORKAKARAXRKERRERARERRRRKX 
PROCEDURE load _degas (nom$ ,adr#) 
LOCAL pal$ 


pal$=SPACES (32) 

OPEN "i",#1,nom$ 

BGET #1,VARPTR(pal$) ,2 

BGET #1,VARPTR(pal$) , 32 

VOID XBIOS(6,L:VARPTR(pal$)): 
BGET #1,adr%, 32000 

CLOSE #1. 

RETURN 


Attention: après l’exécution de ce programme, la mémoire écran 
n’est plus à sa valeur initiale. Il faut la réinitialiser pour continuer à 
travailler normalement. La solution la plus pratique est de sauver l’a- 


ATARI MAGAZINE E BEST OF GFA BASIC 


dresse de la mémoire écran au début du programme afin de la restau- 
rer plus tard. ge 


adr video%=XBIOS(2) 


es... 


sm... 


VOID XBIOS(5,L:-1,L:adr video“) 


Utilisation d'un écran virtuel 


La technique que nous venons de voir est classique, mais peu facile à 
gérer. En examinant la situation avec un angle de vision moins 
«technique», mais plus «pratique», on découvre une autre méthode, 
plus simple à utiliser. 

La zone mémoire de 64000 octets constitue un écran virtuel de 
320*400 pixels. La mémoire écran est une fenêtre de 320*200 pixels 
qui peut être positionnée à n'importe quelle adresse mémoire grâce à 
la fonction XBI0S(5). On peut réaliser une fonction @set ligne 
qui positionne la fenêtre de visualisation sur n’importe qüelle ligne 
de l'écran virtuel. Cette nouvelle fonction calcule l’adresse de la fenê- 
tre de visualisation en multipliant Le numéro de la ligne 1 par 160 
(nombre d’octets par ligne en basse résolution). La fonction 
XBI0S(5) modifie l’adresse de la mémoire vidéo par l'adresse de la 
fenêtre de visualisation. Attention: l'adresse de l'écran virtuel doit 
être stockée dans la variable travail. 


PROCEDURE set ligne(1%) 
LOCAL adr% 
adr%=travail%+(1%*160) 

VOID XBI0S(5,L:-1,L:adr%,-1) 
YSYNC 
RETURN 


En déplaçant la fenêtre de visualisation sur l'écran virtuel, on réalise 
un scrolling. L'exemple suivant vous montre la grande simplicité 
d'utilisation de cette technique. 


FOR ligne%=0 TO 200 
@set ligne(ligne“) 
NEXT ligne% 


“ 


Pour réaliser un scrolling vers le haut, il suffit de déplacer la fière 


de visualisation dans le sens interne. 


FOR ligne%=200 TO O STEP -1 
@set ligne(ligne“) 
NEXT ligne“ 


L'exemple suivant réalise un scrolling haut et bas entre 2 images. : 


RESERVE 100000 
ravai1%=MALLOC(64000) 


adr%=travail# 
@load degas("IMG1.PI1",adr#) 
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adr%=travail#%+32000 
@load_degas("IMG2.PI1",adr%) 
adr%=travai 1% 

@set ligne(0) 

VOID INP(2) : 


FOR i%=0 TO 200 
@set ligne(i%) 
NEXT i% 


VOID INP(2) 

1 

FOR 1%=200 TO O STEP -1 
@set_ligne(i#) 

NEXT i% 

L 

VOID MFREE(travail%) 
END 


Cette technique peut être utilisée sur des écrans virtuels de n’impor- 
te quelle taille. Rien ne vous empêche d'utiliser un écran virtuel de 
320*2000 pixels (prenant 320 Ko de mémoire). 

Avec une machine équipée de 4 Mo, on peut créer un écran virtuel 
d’au moins 320x20 000 pixels (3,2 Mo). Avec un STE équipé de 2 
Mo de mémoire, nous avons réalisé un scrolling vertical sur un écran 
virtuel de 320x10000 pixels occupant 1,6 Mégas octets de mémoire. 
Ce programme a été chargé par 50 images Degas Elite. C'est amu- 
Sant, même si cela ne présente pas beaucoup d'intérêt pratique. 


Amélioration de la vitesse de scrolling 


Le scrolling pixel par pixel est beau, mais un peu lent. Il est possible 
de l'améliorer en déplaçant l’écran de plusieurs lignes à la fois. Avec 
un déplacement de deux lignes à la fois, on augmente la vitesse de 
scrolling d’un facteur de 2. Avec un déplacement de quatre lignes, 
on augmente encore la vitesse de scrolling d’un facteur de 2, etc. La 
qualité visuelle du scrolling n'est pas altérée tant que le pas d’in- 
crémentation est inférieur à 10. 


FOR ligne%=0 TO 200 STEP 2 
@set ligne(ligne“) 

NEXT ligne* 

FOR ligne#=200 TO O STEP -2 
@set ligne(ligne“) 

NEXT ligne“ 


Bug des boucles FOR-NEXT 


Il y a un problème dans les boucles FOR-NEXT avec certaines valeurs 
d’incrémentation. Ce problème est du au traitement de l'indice de 
boucle. Avec une boucle simple, la variable 1 prendra successivement 
toutes les valeurs entières possibles entre O et 200. 


FOR 1%=0 TO 200 
PRINT 1% 
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NEXT 1% 


Avec un pas d’incrémentation de 2, on obtiendra les valeurs-0, 2, 4, 
.…, 198, 200. 

FOR 1%=0 TO 200 STEP 2 

PRINT 1% 

NEXT 1% 


Par contre, la même boucle avec un pas d’incrémentation de 3 don- 
nera un résultat curieux: la variable 1% s'arrêtera à la valeur 198. Ce- 
la vient de la technique utilisée par le GEA Basic pour gérer les bou- 
cles FOR-NEXT. Lorsque le programme incrémente la variable comp- 
teur de la boucle, il teste si le résultat est supérieur ou égal à la valeur 
de sortie de boucle. Si ce test est positif, il sort immédiatement de la 
boucle. Dans notre exemple, la variable de boucle est la variable 1%. 
Lorsque celle-ci vaut 198, le programme l’incrémente de 3. Il teste 
ensuite le résultat (198+3=201). Comme ce résultat est supérieur à la 
valeur maximale, il sort de la boucle. 


FOR 1%=0 TO 200 STEP 3 
PRINT 1% 
NEXT 1% 


Le même phénomène se reproduit avec la valeur 6, car c’est un mul- 
tiple de 3, ainsi qu'avec la valeur 7. C'est encore plus drôle avec 7, 
car la valeur de sortie de la boucle est alors 196. 

Si vous utilisez un pas d’incrémentation de boucle erroné, le scrol- 
ling vertical ne se fera pas sur la totalité de votre écran virtuel. Pour 
éviter cela, on peut éviter les pas d’incrémentation dangereux ou en- 
core positionner systématiquement la fenêtre de visualisation à sa 
position théorique de fin de scrolling. 


FOR 1%=0 TO 200 STEP 3 
@set_ligne(1%) 

NEXT 1% 
@set_ligne(200) 


Pour éviter un affichage supplémentaire, le programme peut faire un 
test sur la valeur de sortie de la boucle. Cela permet d’utiliser n’im- 
porte quel pas de scrolling sans risque. Dans l’exemple suivant, la va- 
leur d’incrémentation de scrolling est stockée dans la variable pas. 


FOR 1%=0 TO 200 STEP pas% 
@set_ligne(1#) 

NEXT 1% 

IF 1#%<>200 
@set_ligne(200) 

ENDIF 


Remarque: Les problèmes posés par des pas d’incrémentation posi- 
tifs se retrouvent aussi avec des pas d’incrémentation négatifs. Une 


boucle FOR-NEXT allant de 200 à 0 avec'un pas de -3 finira avec la 
valeur 2, et la même boucle avec un pas de -7 finira avec la valeur 4. 


Scrolling en haute résolution 


Les techniques de scrolling vertical que nous venons de voir sont va- 
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lables pour la basse et moyenne résolution, puisque ces deux résolu- 
tions utilisent des lignes de 160 octets. Le cas de la haute résolution 
est différent car ce mode graphique utilise 400 lignes de 80 octets. I 
faut alors modifier la routine @set ligne hr 

FOR 1%=0 TO 400 

@set ligne hr(1#) 

NEXT 1% 

FOR 1%=400 TO 0 STEP -1 

@set ligne hr(1#) 

NEXT 1% 

PROCEDURE set_ligne hr(1%) 

LOCAL adr% 

adr%=travail%+(1%*80) 

VOID XBIOS(5,L:-1,L:adr%,-1) 

VSYNC 

RETURN 


Le scrolling en haute résolution est deux fois plus lent que le scrol- 
ling en basse ou moyenne résolution, car il y a deux fois plus de 
lignes à déplacer. Cependant, rien ne vous empêche d’accélérer la vi- 
tesse comme nous l'avons fait plus haut. 


Scrolling circulaire d'une image 


Voici un exemple qui affiche une image scrollant sur elle-même. 
C'est très spectaculaire, mais facile à programmer. Le programme 
utilise un écran virtuel de 320*400 pixels (64 000 octets). L'image est 
chargée en mémoire à partir de la ligne O et de la ligne 200. Elle est 
donc présente deux endroits de la mémoire. Le programme réalise 
un scrolling vertical entre la ligne 0 et la ligne 200. Une fois ce scrol- 
ling terminé, il repositionne la fenêtre de visualisation sur la ligne 0 
et recommence le cycle. À tout moment, il visualise sur l’écran une 
partie de la première image et une partie de la seconde image. C’est 
le mélange de ces deux images identiques qui donne une impression 
de scrolling circulaire. 

Les images sont chargées aux adresses mémoires adr1 et adr2 Atten- 
tion: la routine @set_ ligne calcule une adresse de ligne à partir de 
l'adresse adr1 et non travail comme dans les exemples précédents. 


D 


VOKKAKKANERAKRRARERERAERREXEX 


!#  SCROLLING CIRCULAIRE * 
Dre D' UNE IMAGE # 


0 RARRERRERERR ERA RER RÉ RRIRRE 
RESERVE 100000 
adr1#%=MALLOC(64000) 
adr?2%=adr1%+32000 

: 
@load_degas("IMG1.PI1",adr1#) 
@load_degas("IMG1.PI1",adr2%) 
L 


@set_ligne(0) 


VOID INP(2) 
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Le 


RTE I SE 









DO 
FOR i%=0 TO 200 
@set ligne(i*%) 
NEXT i% 

LOOP 

l 


VOID MFREE(adr1%) 
END 


L 
TOKKAKAKAAKÉEXRKKKEKKÉRE " 


" * FIXATION LIGNE * 
! #  ECRAN VIRTUEL * 
1 OKKKKKERKHRREREREREEÉ 
PROCEDURE set ligne(1%) 
LOCAL adr% 
adr%=adr1%+(1%*160). 
VOID XBIOS(5,L:-1,L:adr%, -1) 
VSYNC 
RETURN 


‘Ce programme n’a pas de condition d’arrêt. Si vous voulez l’utiliser 
de manière compilée, il faut prévoir une condition d’arrêt (test avec 
INKEY, ou utilisation de MOUSEK). On peut inverser le sens du scrol- 
ling en inversant le sens de la boucle FOR-NEXT. 


FOR i%=200 TO O STEP -1 
@set ligne(i%) 
: NEXT 1% 


Comme dans les exemples précédents, il est possible d'augmenter la 
vitesse de scrolling en augmentant le pas d’incrémentation entre 
chaque ligne. 


Scrolling vertical commandé par la souris 


Le programme suivant déplace une fenêtre de visualisation sur un 
écran virtuel de 320x400 pixels. La position de la fenêtre de visualisa- 
tion est commandée par la souris. Une boucle DO-LO0P permet de 
gérer les événements souris. Le programme ne sort de cette boucle 
que si la position Y de la souris varie, ou si l'utilisateur clique sur un 
bouton souris (condition de sortie du programme).  : d 


la souris. Un déplacement lent provoque un scrolling ot et un 
déplacement rapide modifie très rapidement l'écran. 


LOKXKKKAKERERERERARARERERERER 
Â 


1 *  SCROLLING VERTICAL * 
! % COMMANDE PAR LA SOURIS * 
1 OXKEKEKRERKKERRÉRARRERERRLEXE 
RESERVE 100000 

old ecr%=XBI0S (2) 
travai1%=MALLOC(64000) 


HIDEM 
adr%=travail# 
@load degas("IMG1.PI1",adr#) 
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Le résultat est spectaculaire: le scrolling suit tous les mouvements de : 














































adr%=travail#+32000 
@load_degas("IMG2.PI1",adr#) 


MOUSE xm%,ym0%, km 
@set | igne(ym0%) 
DO 
DO : 
MOUSE xm%,ym%, km 
EXIT IF ym%<>ym0% 
EXIT IF kmx<>0 
LOOP 
EXIT IF kme<>0 
ym0%=ymS 
@set ligne(ym*) 
LOOP 


VOID XBIOS(5,L:-1,L:01d ecr%,-1) 
Ÿ 


SHOWM 
VOID MFREE(travai1#) 


END 


Remarque: La position Y de la souris varie entre O et 199 alors que la 
position d’affichage de l'écran virtuel varie entre O et 200. La der- 
nière ligne de la seconde image n’est donc jamais affichée sur l'écran. 


Scrolling vertical sur un grand écran 


On peut réaliser un scrolling sur un écran de grandé dimension en 
fabriquant l'écran au fur et à mesure de l'affichage. L'écran peut être 
construit avec des éléments graphiques de 16x16 pixels. 

L'écran virtuel est constitué d’une série de lignes de blocs de 16x16 
pixels. IL y a 320/16 blocs par ligne, c’est-à-dire vingt blocs par 
ligne. Les éléments graphiques de base peuvent être stockés dans un 
tableau alphanumérique et affichés avec l’instruction PUT. 


DIM dessin$(300) 
DIM ecran#(4000,20) 


Ce système permet de créèr un grand écran ne prenant que peu de 
place. L'écran basse résolution est de 320x200 pixels. Il peut être des- 
siné avec 20*10 éléments graphiques de base. Si le nombre 
d'éléments graphiques ne dépasse pas 255, l'écran peut être défini 
avec des entiers courts 8 bits. La définition d’un écran prend alors 
20*10 octets, soit 200 octets. En stockant l’espace virtuel dans un ta- 
bleau de 4000 lignes, on peut coder 200 écrans pour une taille de 
80000 octets (4000 lignes de 20 octets). En comparant la place 
mémoire prise par 200 écrans avec les 80 000 octets du tableau écran, 
on arrive à un rapport de 80. Pour faire un calcul exact, il faut tenir 
compte de la place mémoire prise par les éléments graphiques. Un 
élément de 16*16 pixels stocké dans une variable alphanumérique 
prend 134 octets. Les 256 éléments (de 0 à 255) occupent 34304 oc- 
tets. Le rapport est donc de 200*32000/(80000+34304), soit 56. 

GET 1,1,16,16,vra$ 

PRINT LEN(var$) 


La plupart des jeux d’arcades à scrolling vertical utilisent un système 
similaire à celui-ci pour créer leurs décors de jeux. 
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GRAPHISME STE EN GFA BASIC 


SCROLLING 
HORIZONTA 





Faites danser votre écran 


Nous avons vu comment gérer les 4096 couleurs du STE et 
comment réaliser des scrollings verticaux. Cet article porte 
sur le scrolling horizontal. 


Scrolling horizontal 


Au point de vue du spectateur, un scrolling correspond au déplace- 
ment d’une fenêtre de visualisation sur une image plus grande que 
l'écran. Il existe plusieurs techniques de programmation de scrolling. 
Le système d’affichage du STE peut gérer facilement des scrollings 
verticaux et horizontaux. 

On peut réaliser un scrolling vertical en faisant varier l’adresse de la 
mémoire vidéo. La fonction XBIOS(5) permet de changer l'adresse 
de la mémoire écran à l’octet près. Etant donné qu’une ligne fait 160 
octets en basse résolution, il suffit donc de modifier l'adresse de la 
mémoire vidéo de 160 octets pour décaler lécran d’une ligne. 


Structure de la mémoire écran STE 


La mémoire vidéo basse résolution d’un STF est organisé de inanière 
linéaire. Elle est constituée de 200 lignes de 160 octets pour une taille 
totale de 32000 octets. Les lignes sont stockées les unes après les 
autres. 


ligne 1 (160 octets) 
ligne 2 (160 octets) 
ligne 3 (160 octets) 
ligne 4 (160 octets) 


MEMOIRE VIDEO STF 


200 LIGNES DE 160 OCTETS 





La mémoire vidéo STE est organisée de la même manière que la 
mémoire écran STF, c’est-à-dire en ligne de 160 octets. Par contre, il 
peut y avoir un décalage entre chaque ligne de l’écran. 


MEMOIRE VIDEO STE 


200 LIGNES DE 160 OCTETS 





Le système d’affichage doit être averti de la valeur du décalage sépa- 
rant chaque ligne afin de réaliser un affichage correct. Il ne doit lire 
que les lignes appartenant à l'écran. Ce décalage s’appelle: offset de li- 
gne. Le système d’affichage lit une ligne d’écran en tenantt compte 
de l’offset de ligne pour calculer l’adresse de la ligne suivante. 


La variable système d'adresse &HFF820F contient la valeur de l’offset 
de ligne. Elle est mesurée en mots (1 mot = 2 octets). Si elle contient 
la valeur O, il n’y a pas d’espace entre les lignes. La structure de la 
mémoire vidéo est alors similaire à la mémoire vidéo du STE C’est 
le cas le plus courant. L'instruction SPOKE permet de modifier le 
contenu de la variable système 8&HFF820F. 


SPOKE &HFF820F,0 


Effet graphique amusant 


Lorsque vous modifiez la valeur de l’offset de ligne, la mémoire 
écran doit avoir une structure tenant compte de cet offset. Si ce nest 
pas Le cas, l’effet est assez amusant. Avec une valeur différente de 0, le 
contrôleur vidéo saute des espaces entre chaque ligne. Si l'écran est 
ordinaire, le contrôleur vidéo affiche sous forme graphique le conte- 
nu de la mémoire situé après la zone mémoire vidéo. 

Si vous voulez la voir, taper SPOKE &HFF820F,80. Le résultat est ga- 
ranti, surtout avec le bureau GEM. Les barres de l’écran qui bougent 
sans cesse correspondent aux zones système du ST qui sont conti- 
nuellement modifiées par le système d'exploitation, Pour annuler cet 
effet vidéo, taper en aveugle SPOKE &HFF820F, 0. 


Scrolling horizontal 


Pour réaliser un scrolling horizontal, on peut déplacer une fenêtre 
de visualisation sur un écran virtuel. L'écran doit être généré par le 
programme. La fenêtre de visualisation est l’écran du ST. On modifie 
le contenu de l'écran en changeant son adresse mémoire grâce aux 
fonctions spécialisées du STE. 






IMAGE 2 ECRAN VIRTUEL 





IMAGE] 





ECRAN PHYSIQUE: 
FENETRE SUR 
ECRAN VIRTUEL 
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À chaque position de la fenêtre de visualisation correspond une 
adresse pour la mémoire vidéo. Pour déplacer la position de la 
fenêtre, il suffit donc de changer une adresse. 

Le ST ne tient compte du changement d'adresse vidéo qu’après avoir 
affiché l’image courante (à la vitesse de cinquante images par se- 
condes).. 

Si le programme change l'adresse vidéo plus rapidement, seule la der- 
nière modification sera prise en compte. 

Pour éviter cela, après chaque changement d’adresse, il faut bloquer 
l'exécution du programme tant que le ST n’a pas affiché l’image cou- 
rante. C’est la tâche de l'instruction VSYNC. 


XBI0S(5) 
VSYNC 


| Changement adresse mémoire vidéo 
| Attente fin affichage image courante 


Puisque le ST affiche cinquante images par seconde, la vitesse de 
scrolling ne peut pas dépasser cinquante décalages à la seconde. Ceci 
dit, chaque décalage peut correspondre à autant de pixels que vous le 
désirez. à 
Scrolling horizontal 
16 pixels par 16 pixels 


La structure de l’écran ST en basse résolution est telle que les pixels 
sont stockés par groupe de 16 dans des blocs de 8 octets. Cette struc- 
ture particulière est liée au système de codage des pixels par plan de 
couleurs. On peut réaliser un scrolling horizontal sur un écran vir- 
tuel en faisant simultanément varier l'adresse de l’écran et l’offset in- 
terligne. Etant donné que le codage interne des pixels se fait par 
blocs de 16 pixels (8 octets), le scrolling ne peut se faire que par 
blocs de 16 pixels. 

L'écran virtuel fait 64000 octets. L’offset de ligne est de 160 octets, 
donc de quatre-vingt mots. L'adresse de l’écran est modifiée avec la 
fonction XB10S(5). Pour réaliser un scrolling horizontal vers la 
droite, il faut déplacer l'adresse de l’écran logique de 8 octets à la fois. 
Chaque déplacement de 8 octets correspond à un déplacement visuel 
de 16 pixels. 


adr_ pic#=MALLOC (64000) 


SPOKE &HFF820F,80 

FOR bloc%=0 TO 19 
adr%=adr pic#+blocz*8 

VOID XBIOS(5,L:-1,L:adr%,-1) 
VSYNC 

NEXT bloc* 

SPOKE &HFF820F,0 

VOID MFREE(adr pic#) 

END 


Ce programme est incomplet. Il s’agit juste d’un exemple montrant 
la technique de base de scrolling. L'écran virtuel est vide. Il faut le 
remplir avec une image quelconque pour réaliser une véritable 
démonstration. 

Si vous voulez réaliser un programme complet, inspirez-vous du pro- 
gramme suivant. 
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Scrolling horizontal pixel par pixel 


Pour réaliser un scrolling horizontal pixel par pixel, il faut position- 
ner l'écran physique par rapport à l'écran virtuel à 1 pixel prés. La 
variable système d’adresse &HFF8265 permet d'y arriver. 

Elle contient une valeur que l’on appelle l’offet de pixel. 

Lorsque le contrôleur vidéo affiche une ligne sur l'écran, il commen- 
ce par lire le bloc mémoire correspondant aux seize premiers pixels 
de la ligne. L’offset de pixel permet de préciser auquel de ces 16 pixels 
doit commencer l'affichage. Avec un offer de pixel de 0, l'affichage 
commence au premier pixel du bloc. C’est le mode normal d’afficha- 
ge (le seul permis par le STF). 

Pour réaliser un déplacement de pixel, il suffit de modifier la valeur 
de la variable 8HFF8265. L'exemple suivant réalise un scrolling pixel 
par pixel sur une longueur de 16 pixels. 


FOR offset pixel#=0 TO 15 
VSYNC 

SPOKE &hFF8265,offset_pixel# 
NEXT offset pixel 


Si vous utilisez ce programme sur un écran normal, le résultat risque 
d’être surprenant. Pour obtenir un scrolling correct, il faut créer un 
espace virtuel dont la largueur est supérieure à celle de l’écran. 
L'exemple suivant utilise un écran virtuel de 336 pixels de large. Sa 
largueur en octets est de 168 octets. L'offet de ligne est de 8 octets, 
donc de quatre mots. 

La taille de l’écran virtuel est de 200x168 octets = 33600 octéts. 


LOKAKKEKEKKRRARKAAARÉERÉRARR 


! *  SCROLLING HORIZONTAL * 
! * SUR 16 PIXELS ji 


D OHREKRR AR RARE R ARE 


adr_pic#=MALLOC(33600) 

l 

VOID XB1I0S(5,L:-1,L:adr pic#,-1) 
VSYNC 

SPOKE &HFF8265,4 

FOR offset pixel#=0 TO 15 
VSYNC 

SPOKE &hFF8265,offset pixel 
NEXT offset _pixel# 

VOID MFREE(adr pic#) 

END 


Si vous exécutez ce programme, vous constaterez qu’il ne fonctionne 
pas. La raison est que l’offet de ligne est variable. Lorsque l’offset de 
pixel vaut 0, l’offset de ligne est correct. Par contre, lorsque l’ojfset de 
pixel est différent de 0, le contrôleur vidéo doit lire les pixels restants 
dans le bloc de 16 pixels suivants. La valeur de l’offet vidéo doit 
alors diminuer de la taille d’un bloc de 16 pixels, c’est-à-dire de 8 oc- 
tets (quatre mots). 

Voici une version corrigée du programme d’exemple. Lorsque l’ofset 
de pixel est égal à 0, l’offset de ligne vaut 4. Lorsque l’ofset de pixel est 
différent de 0, l’offet de ligne vaut 0. Le programme de scrolling ho- 
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rizontal publié dans Atari Magazine N°6 donnait un scrolling sac- 
cadé car l’offset de ligne n’étant pas modifié lorsqu'il était égal à 0. 


D ORRRRRRERRRRRRRRRRAIRRAEREÉR 


! x  SCROLLING HORIZONTAL * 
! x NON SACCADE Æ 
! x SUR 16 PIXELS * 


PT TT TS SELLES LELELELÉLÉES ESS SE) 


adr_pic*=MALLOC(33600) 

VOID XBIOS(5,L:-1,L:adr pic#,-1) 
VSYNC 

SPOKE &HFF8265,4 

FOR offset_pixel#=0 TO 15 

VSYNC 

SPOKE &hFF8265,offset_pixel* 


IF offset_pixel#%=0 
SPOKE &HFF8265,4 
ELSE 
SPOKE &HFF8265,0 
ENDIF 


NEXT offset pixel# 
VOID MFREE(adr pic#) 
END 


Attention: dans ce programme, l’offet de ligne vaut O si l’offset de pr- 
xel est différent de 0. C’est un cas particulier qui n’est valable que 
dans cet exemple simple. Il ne faut pas oublier que si l'offset de pixel 
est différent de O, l’offset de ligne est égal à l’offet de ligne théorique 
moins 4 (dans l'exemple 4-4=0). ; 

Si vous travaillez sur un écran virtuel constitué de deux écrans mis 
bout à bout (160 octetsx2=320 octets, donc 160 mots), l’offet de 
ligne vaut 80 si l’offet de ligne est égal à O et 76 (80-4) dans le cas 
contraire. 


Exemple de scrolling horizontal 
pixel à pixel 


Voici un programme de démonstration qui effectue un scrolling ho- 
rizontal entre deux images Degas Elite. Ce scrolling est réalisé en 
déplaçant une fenêtre sur un écran virtuel. L'écran virtuel est consti- 
tué de deux images Degas Elite mises bout à bout. Sa taille est de 
64000 octets (2x32000 octets). 


IMAGE 1 IMAGE 2 


Le scrolling est réalisé en déplaçant une fenêtre sur l'écran virtuel. 
Pour positionner l'écran physique à une position quelconque de 
l'écran virtuel, il faut calculer l'adresse du bloc de 16 pixels corres- 
pondant à cette position, la valeur de offer de pixel et la valeur de 


l'offset de ligne. 


offset pixel%=px% MOD 16 

adr phys%=adr pic#+(pxé DIV 16)*8 
IF offset_pixel#%=0 
offset_ligne*=80 

ELSE 

offset_ligne#=76 

ENDIF 


Le numéro du bloc est obtenu en divisant la position d'affichage par 
16. Comme un bloc correspond à 8 octets, on multiplie ensuite le 
numéro de bloc par 8 afin d’avoir l'adresse du bloc. 


adr bloc#=(px* DIV 16)*8 


Cette adresse est relative à la zone mémoire contenant l’image. Pour 
obtenir une adresse absolue, il faut y additionner l’adresse de la zone 
mémoire, f 


adr bloc#=adr_img#+(px* DIV 16)*8 


La valeur de l’offset de pixel est calculé avec la fonction MODULO. 
offset_pixel%=px* MOD 16 


La valeur de l’offet de ligne vaut 80 si l’offset de pixel est égal à 0 et 76 
(80-4) si l’offser de pixel est différent de 0. 

La procédure @position_fenetre( px) calcule automatiquement les 
paramètres de la fenêtre correspondant à la position px. Une fois les 
paramètres déterminés, elle positionne l'écran physique à la position 
correspondant à la position px. Une fois la procédure Gposi- 
tion fenetre créée, les routines de scrolling sont particulièrement 
simples à réaliser. Pour scroller une image vers la gauche, il suffit de 
positionner la fenêtre sur la position 0 de l'écran virtuel et de dépla- 
cer cette position vers la gauche d’un pixel à la fois. 


@position fenetre(0) 
FOR px%=0 TO 320 
@position fenetre(px#) 
NEXT px% 


Pour réaliser un scrolling vers la droite, il faut positionner la fenêtre 
au bout de l'écran virtuel (px=320) et déplacer la fenêtre vers le bord 
gauche (px=0). 


@position fenetre(0) 

FOR px#%=320 TO O0 STEP -1 
@position fenetre(px#) 
NEXT px% 


Le programme stocke deux images Degas Elite en mémoire et réalise 
un scrolling allant d’une image à une autre. Les images sont chargées 
dans la mémoire écran initiale, puis recopiées dans l’écran virtuel en 
tenant compte de sa structure particulière (160 octets de l’image 1 
suivis de 160 octets de l’image 2, etc.) 


D OREKKKRRRRERERREARERRERAA EEK 


1 *  SCROLLING HORIZONTAL * 


1 PRET ET EE TT ETS ITS ITS LS 
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RESERVE 100000 
HIDEM 
adr pic#=MALLOC(64000) 


adr sauve%=XBI0S (2) 


1 
LOKKKKERRKREREEERERERXARARREERRRE 
! * CHARGEMENT PREMIERE IMAGE * 
LOKKKKRKEREREERRERAAKELAAREXER KA 
@load degas("IMAGEL.PI1",XB10S(2)) 
adr_ecran%=XB10S(2) 
adr memoire#=adr pic 
FOR 1%=0 TO 199 
BMOVE adr ecran%,adr memoire, 160 
ADD adr ecran“, 160 
ADD adr memoire“, 320 
NEXT 1% 


IDE TTLLEILLLSLLLSESENLS SES TESSSE SES 
! * CHARGEMENT SECONDE IMAGE * 
KKKXKKKEKKKKKAKRRKREREERERÉRERERR 
@load degas("IMAGE2.PI1",XBIOS(2)) 
adr_ecran#=XB10S (2) 
adr memoire#=adr_pic#+160 
FOR 1%=0 TO 199 
BMOVE adr ecran*,adr memoire, 160 
ADD adr ecran#,160 
ADD adr memoire“, 320 
NEXT 1% 
CLS 
PRINT "Pressez une touche pour" 
PRINT "Commencer la démonstration" 
VOID INP(2) 


D OKKKKKKEKRRARKERKRERERERRERERARERE 


‘x  SCROLLING VERS LA DROITE * 
LOKAKARKRRRRE HR RARE RRRN AR ARAEE 
FOR px%=0 TO 320 

@position fenetre(px%) 
NEXT px% 


LOKKKKKKRARARRRERERERÉERRAARARAREE 


‘x  SCROLLING VERS LA GAUCHE * 
VOXEKKKKRALKEKEEXRRREARARERREERRRRE 
FOR px%=320 TO 0 

@position fenetre(px#) 
NEXT px 


VOID INP(2) 


LORAKEKKKKREREERRRERARERERERRÉERERARARXEAR 


‘ * REMISE ECRAN DANS ETAT INITIAL * 
LOXKAKERKERERRERRRARERERARXARERAERRARE 
SPOKE &HFF8265,0 
SPOKE &HFF820F,0 


VOD XBIOS(5,L:-1,L:adr sauve#,-1) 
VSYNC 

VOID MFREE(adr pic#) 

SHOWM 

END 


LORREEARERERERERÉÉARERERRERERERREAAREX 
* # AFFICHAGE DE LA FENETRE ECRAN * 
(RE TTTTT LI LIL LELLESLLSS LES S ESS EEE SEE) 
PROCEDURE position fenetre(px%) 

LOCAL offset _pixel# 

LOCAL adr phys* 

LOCAL offset lignes 

offset pixel#=px*% MOD 16 

adr_phys%=adr_pic#+(px* DIV 16)*8 

IF offset _pixel%=0 
_ offset ligne#-=80 

ELSE 

offset ligne*-76 

ENDIF 

VOID XBIOS(5,L:-1,L:adr phys#,-1) 

VSYNC 

SPOKE &HFF8265,offset pixel“ 

SPOKE &HFF820F,offset ligne“ 
RETURN - 


MP TTILILILILLILILLLLLLLLESELLISS ESS SES 
! x CHARGEMENT IMAGE DEGAS ELITE * 
PT TILLTITILLILLILLLLLELELLSLELRELEESES 
PROCEDURE load degas (nom$,adr) 

LOCAL pal$ 


pal$=SPACES (32) 
OPEN "i",#1,nom$ 
SEEK #1,2 
BGET #1,VARPTR(pal$),32 
VOID XB10S(6,L:VARPTR(pal$)) 
BGET #1,adr%, 32000 
CLOSE #1 
RETURN 


La vitesse de scrolling horizontal peut être accélérée en augmentant 


le pas d’incrémentation entre chaque pixel. 


Avec 2 pixels, la vitesse est doublée. Avec 4 pixels, la vitesse est enco- 


re doublée. 


Remarque: le système de scrolling modifie l'adresse de la mémoire 
vidéo. Il faut remettre l'écran dans son état initial afin d'éviter les 
surprises désagréables. Le programme sauve l'adresse initiale dans la 


variable adr_ sauve. 


Scrolling horizontal 
+ - 
commandé par la souris 


Pour obtenir un effet spectaculaire, vous pouvez asservir le scrolling 


aux positions de la souris. C’est très facile à réaliser en affichant la 
fenêtre de visualisation à la position courante de la souris. 
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DO 
xm%=MOUSEX 
EXIT IF MOUSEK<>0 
@position fenetre(xm) 
LOOP 


Cette routine fonctionne bien, mais elle présente un défaut. La fené- 
tre de visualisation est sans cesse redessinée à l’écran. Pour éviter ce- 
la, il faut écrire une routine qui attende un déplacement de la souris 
pour redessiner la fenêtre de visualisation. 


x0%=MOUSEX 
@position fenetre(x0%) 
DO 
DO 
xm%=MOUSEX 
EXIT IF xm%<>x0% 
EXIT IF MOUSEK<>0 
LOOP 
EXIT IF MOUSEK<>0 
@position fenetre(xm%) 
X0%=xm% 
LOOP 


La position de départ de la souris est mémorisée dans la variable 
x0%. Une boucle DO-LOOP bloque l'exécution du programme tant 
que la souris ne change pas de position x. Etant donné qu’il y a deux 
boucles DO-LO0P la condition de sortie (clic sur la souris) est testée 
deux fois (EXIT IF km%<>0). 

Pour obtenir le programme complet, il faut reprendre le programme 
de scrolling et le modifier légèrement. 

Remarque: dans le programme précédent, la fenêtre de visualisation 
est déplacée de la position 0 à la position 320. Etant donné que la 
position de la souris ne peut varier qu'entre O et 319, la dernière co- 
lonne de l’écran virtuel correspondant à la position 320 ne sera ja- 
mais affichée à l'écran. 


Utilisation simultanée des scrollings 
verticaux et horizontaux 


Après le scrolling vertical et le scrolling horizontal, voici maintenant 
un programme d'exemple qui utilise simultanément les deux modes 
de scrolling. 1] affiche une fenêtre sur un écran virtuel de 640x400 pi- 
xels. Cet écran virtuel est remplis avec quatre images Degas Elite. La 
fenêtre de visualisation est déplacée avec la souris. L'écran virtuel oc- 
cupe quatre images Degas Elite, donc 128000 octets (4x32000 octets). 
Les lignes d’une même image sont séparées par 160 octets. Pour cal- 
culer l'adresse de la ligne n+1 à partir de l'adresse de la ligne n, il faut 
lui ajouter la valeur 320. 

Ce chiffre correspond à la longueur de la ligne (160 octets), addi- 
tionné à Ja longueur de l’espace interligne (160 octets). On obtient 
donc un total de 320 octets. 

L'image IMAGE 1 commence à l'adresse de l'écran virtuel. L'image 
IMAGE 2 commence à l'adresse de l'écran virtuel plus 160 octets. 
L'image IMAGE 3 commence à l'adresse de l’écran virtuel plus 32000 
octets. Et enfin, l’image IMAGE 4 commence à l’adresse de l'écran 
virtuel plus 32160 octets (32000+160). 





IMAGE] IMAGE 2 


IMAGE 3 


IMAGE 4 


La procédure @fixe ecran(px,py) positionne la fenêtre de visuali- 
sation à la position (px,py). Nous avons vu plus haut que la position 
de la mémoire écran est définie par une adresse, un offset de ligne et 
un offset de pixel. Les lignes sont séparées par 80 mots (160 octets). 
L'offet de ligne est donc de 80 lorsque l’offet de pixel est égal à O, et 
de 76 (80-4) dans le cas inverse. L’offet de pixel est défini avec l’opéra- 
teur MODULO. 


offset _pixel#=px* MOD 16 


L'adresse de l'écran est calculée à partir de la position x et de la posi- 
tion y. La position y sert à déterminer l'adresse de la ligne. La posi- 
tion x sert à calculer l'adresse relative du début de l’écran par rapport 
à l’adresse de la ligne. 


adr ligne#=adr pic#+py%*320 
adr phys%=adr ligne%+(px% DIV 16)*8 


Le programme commence par remplir l'écran virtuel avec les quatre 
images Degas Elite. Les images sont chargées avec la procédure 
@load degas dans une mémoire tampon, puis recopiées à leurs 
places respectives dans l’écran virtuel. L’utilisation d’une mémoire 
tampon permet d'éviter l'affichage des images à l'écran lors de lini- 
tialisation du programme. 


DUR ROM ROMA ROR HR HE A RAR RO A ARRET 


! *  SCROLLING SUR UN ECRAN VIRTUEL * 
‘x DE 640*400 (4 IMAGES DEGAS) " 
LR AR A AORORHERE HORREUR ER RENE RER AIO 
! # (C) ATARI MAGAZINE 1991 a 
! x (C) PATRICK LECLERCQ 1991 Li 


V1 OXRKKKÉKRERERARRRELERARERARARRÉRERERER 


1% PROGRAMMATION GFA BASIC 3.xx ke 


D RO RORORO RER OR ARR A RORRROR OR ARR RAR AA 


RESERVE 100000 

U 

HIDEM 

adr_tampon%=MALLOC (32000) 
adr_pic%=MALLOC (128000) 

adr sauve%=XBI0S (2) 
LOKKKKRKKAREEEEXRERERERKRARRÉRARE 
! x CHARGEMENT PREMIERE IMAGE * 
IP TT LILI LILIIILLSLISES LES SE STE SE) 
@load_degas("IMAGEL.PI1",adr tampon“) 
adr ligne*=adr tampon% 
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adr copie%=adr pic* 

FOR 1%=1 TO 200 
BMOVE adr ligne#,adr copie*,160 
ADD adr ligne, 160 : 
ADD adr copie#, 320 

NEXT 1% 

1 


LOAKARAAKRARREREEREEREXERRERAERXRE 


" # CHARGEMENT SECONDE IMAGE * 
LUAKAAKARERKERKERRARRAXARARARÉEAREEX 
@load degas("IMAGEZ2.PI1",adr tampon“) 
adr_ligne#=adr_ tampon“ 
adr_copie#=adr_pic#+160 
FOR 1%=1 TO 200 
BMOVE adr ligne*,adr copie#,160 
ADD adr ligne*,160 
ADD: adr copies, 320 
NEXT 1% 


DOKAKAKARARARARKEAKREARARREARRARRRAAR 
!X CHARGEMENT TROISIEME IMAGE * 
lOKKKKKKKAKKARAKRAKRALAARARERRRRARAE 
@load_ degas("IMAGE3.PI1",adr tampon“) 
adr_ligne%=adr tampons 
adr copie#=adr pic++64000 
FOR 1%=1 TO 200 
BMOVE adr ligne“,adr copie#,160 
ADD adr ligne#,160 
ADD adr_copie“#,320 
NEXT 1% 
LOKXKKKAKREKRERRÉERERKLKRRERKERERREREX 
" # CHARGEMENT QUATRIEME IMAGE * 
LORREAKRAARARRRRARARARARARARARRÉRRARX 
@load degas("IMAGE4.PI1",adr tampon) 
adr ligne#=adr tampons 
adr_copie%=adr pic#+64000+160 
FOR 1%=1 TO 200 
BMOVE adr ligne%,adr copie“, 160 
ADD adr ligne%,160 
ADD adr copie#,320 
NEXT 1% 


D OKKKKAKKKRKARRARAAKRARRARERRREE RÉ 


las INITIALISATION DE LA +3 
! * FENETRE DE VISUALISATION * 
LOKAKKKKKXKRARKARAARAREARERARLEARARRE 
SETMOUSE 160,100 

MOUSE xm%, ym%, km% 

@fixe ecran(xm%, ym) 

X0%=xm 


D ORRRRRAA RER RAA RR MERE 
" *. BOUCLE PRINCIPALE * 
LR RON RIRE KR RARE 
DO 

DO 


MOUSE XMÉ6, YM , KM 
EXIT IF (xm%<>x0%) OR (ym%<>y0%) 
EXIT IF km%<>0 
LOOP 
EXIT IF km%<>0 
@fixe ecran(xm%,ym#) 
X0%=Xxm% 
y0%=ymS 
LOOP 
l 


L'OXRKKKKKERRRREKEXEARERARRRLARAARARE 


! * REINITIALISATION DE L'ECRAN * 
L OKKKkREKXKAKAKARERRERRRARÉRAAREAXERAERRE 
SPOKE &HFF8265,0 

SPOKE &HFF820F,0 

VOID XBIOS(5,L:-1,L:adr sauve#,-1) 
VSYNC 

VOID MFREE(adr pic“) 

VOID MFREE(adr tampon“) 

SHOWM 

END 


. ‘ 
LOKKKKKKKKKKRERKKRERKARARREAE 


! # MODIFICATION POSITION * 
! #  ECRAN VIRTUEL À 
LOKAKERERREXARRERARARARERARERE 
PROCEDURE fixe ecran(px%,py#) 
LOCAL offset pixel# 
LOCAL adr phys% 
LOCAL offset ligne 
LOCAL adr ligne“ 
adr_ligne%=adr pic%+py#*320 
offset pixel#=px% MOD 16 
adr phys#=adr ligne%+(px% DIV 16)*8 
IF offset pixel#=0 
offset _ligne*=80 


ELSE 
offset ligne#=76 
ENDIF 


VOID XBIOS(5,L:-1,L:adr phys%,-1) 

VSYNC 

SPOKE &HFF8265,offset_pixel# 

SPOKE &HFF820F,offset ligne“ 
RETURN 


LOKKKEAKKAKKARERAEREREERE 


" * CHARGEMENT IMAGE * 
és DEGAS ELITE # 


TL LORRKEREERERERE RER ERRREEE 


PROCEDURE load degas (nom$,adr%) 
LOCAL pal$ 


pal$=SPACES (32) 

OPEN "i",#1,nom$ 

SEEK #1,2 

BGET #1,VARPTR(pal$),32 
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VOID XB10S(6,L:VARPTR(pal$)) 
BGET #1,adr%,32000 
CLOSE #1 

RETURN 


L'utilisation d'une mémoire tampon pour le chargement des images 
permet d'éviter leur affichage à l'écran. Le tampon prend 32000 oc- 
tets de mémoire. Pour éviter cela, on peut écrire une routine qui 
charge directement une image Degas Elite dans l'écran tampon. 


PROCEDURE charge degas (nom$,adr_ image“) 
LOCAL pal$ 
LOCAL ligne,adr ligne“ 
U 
pal$=SPACES (32) 
OPEN "i",#1,nom$ 
SEEK #1,2 
BGET #1,VARPTR(pal$) ,32 
VOID XBI0S(6,L:VARPTR(pal$)) 


adr ligne#=adr image“ 
FOR ligne%=1 TO 200 
BGET #1,adr ligne“, 160 
ADD adr ligne“, 320 
NEXT ligne* 
CLOSE #1 
NEXT ligne% 


Le chargement des images dans l’écran virtuel est maintenant beau- 
coup plus facile à programmer. 


@charge degas("IMAGE1.PI1",adr pic) 
@charge degas("IMAGE2.PI1",adr pi c%+160) 
@charge degas("IMAGE3.PI1",adr pi c#+32000) 
@charge degas("IMAGE4.PIl",adr pi c#+32160) 


Attention: la routine @charge degas est une routine spécifique qui . 


ne fonctionne qu'avec un écran virtuel d’une largeur de 640 pi- 
xels (320 octets de large). 
Pour avoir une routine fonctionnant avec un autre écran virtuel, il 
faut modifier la ligne ADD adr ligne%,320 en tenant compte de la 
largueur du nouvel écran. 


Déplacement souris sur un écran virtuel 
de taille quelconque 


Les déplacements de la fenêtre de visualisation étant liés aux déplace- 
ments de la souris, la dernière ligne et la dernière colonne de l'écran 


virtuel ne sont jamais affichés par le programme. On ne peut utiliser | 


le système précédent que pour un écran de 639x399 pixels. Pour 
déplacer la fenêtre de visualisation avec la souris sur un écran virtuel 
de taille quelconque (mais supérieur à l'écran visible), il faut gérer la 
souris de manière différente. 

La position X de la souris varie entre O et 319, et la position Y varie 
entre O et 199 pixels. Pour obtenir un déplacement sur un écran de 
‘dimension quelconque, il ne faut pas tenir compte des déplacements 
absolus de la souris, mais des déplacements relatifs. Pour obtenir un 


déplacement relatif, il faut positionner la souris à un emplacement 
précis de l'écran et attendre que sa position change. La valeur du dé- 
placement relatif est la différence entre la nouvelle position de la 
souris et sa position initiale. Dès que le déplacement relatif est calcu- 
lé le programme doit repositionner la souris sur sa position initiale. 
Après un déplacement souris, le programme doit calculer la nouvelle 
position de la fenêtre de visualisation. Ce calcul est effectué en addi- 
tionnant le déplacement relatif avec la position courante de la fenê- 
tre de visualisation. Il peut arriver que le calcul du déplacement don- 
ne des coordonnées en dehors de l'écran. Pour éviter cela, le pro- 
gramme doit exercer un contrôle sur les coordonnées de la fenêtre. 
Les variables xmax% et ymax% contiennent les positions extrêmes de 
la fenêtre. Les positions minimales sont (0,0). 


xmax%=320 
ymax%=200 


SETMOUSE 160,100 
xaff#=100 

yaff*=100 

@fixe ecran(xaff#,yaff#) 


DO 


IMETTSILLLILRLS ILES ERELESES) 


! x ATTENTE ACTION SOURIS * 
DOKRXRKEKRAEERERRRRRRRÉRERERÉE 
DO 
MOUSE xm%,ym*%, km“ 
EXIT IF (xm%<>160) OR (ym%<>100) 
EXIT IF km#<>0 
LOOP 
EXIT IF km%<>0. 


| LEREKEKXÉREÉRRERERRERERREXEREAXE 
! x CALCUL POSITION X FENETRE * 
IP TTT LS LLILLLÉSSIILLELLSIETLLESSESE) 
IF xms<>160 
dx#=xm#- 160 
ADD xaff%,dx% 
IF xaff#<0 
xaff#=0 
ENDIF 
IF xaff#>xmax* 
xaff#=xmax* 
ENDIF 
ENDIF 


1 RAR ROR HONOR RORAUA A ARR HER RAR AA RAR KE 
! x CALCUL POSITION Y FENETRE * 
LOHXKKAKERERERÉREREXRRREAREREAER 
IF ym#<>100 

dy%=ym%-100 

ADD vaff%,dy* 

IF yaff#<0 

yaff#=0 
ENDIF 
IF yaff#>ymax* 
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yaff#=ymax* 
ENDIF 

ENDIF 

SETMOUSE 160,100 
@fixe ecran(xaffs,yaff*) 

LODP 















Remarque: en modifiant les valeurs de position extrêmes de la sou- 
ris, on peut limiter le scrolling à une zone précise de l’écran virtuel. 
Cela peut être utile dans certaines applications. L'exemple suivant li- 
mite les déplacements de la fenêtre de visualisation entre les coor- 
données (50,50) et (200,150). 









xmin%=50 
ymin#=50 
xmax#%=200 
ymax#=150 


……... 


IF xaff#<xmin 
xaff#=xmin 

ENDIF 

IF xaff#>xmax 
xaff#=xmaxs 

ENDIF 





















IF yaff#<ymins 
vaff#=ymin* 

ENDIF 

IF yaff#>ymax 
yvaff#=ymax* 

ENDIF 


Taille des écrans virtuels 






La place mémoire prise par les écrans virtuels croit rapidement en 
fonction de leurs tailles. Un écran virtuel de 2x2 images prend 128 
Ko. Un écran de 3x3 images prend 288 Ko. La taille d’un écran vir- 
tuel doit correspondre à certaines conditions: elle doit être supérieu- 
re ou égal à la taille d’un écran normal et la largueur de l'écran doit 
être un multiple de 16. 

Par exemple, on peut créer un écran virtuel de 592x257 pixels. Une 
Jargueur de 592 pixels correspond à 37 blocs de 16 pixels. Les lignes 
de cet écran ont une taille de 296 octets (un bloc de 16 pixels = 8 oc- 
tets). La taille mémoire de l’écran est de 296x257 octets, soit 76072 
octets. 


Pour finir 






Maintenant que vous savez gérer les 4096 couleurs et le scrolling 
hard du STE, vous pouvez réaliser des programmes intéressants et de 
superbes démos. Envoyez-nous vos réalisations. 
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GRAPHISME 







EN GFA BASIC 


CIAUX GRAPHIQUES 


flasher vos écrans 


Les effets vidéo permettent d'agrémenter vos applications 
graphiques et vos jeux. Nous vous proposons quelques conseils et 
explications pour bien en comprendre le fonctionnement. 


Instruction BMOVE 


Elle permet de copier très rapidement une zone mémoire (envi- 
ron 1600 ko à la seconde). On l’utilise surtout pour les applications 


graphiques. 


BMOVE adr org, adr dest, nb octets, 


adr org : adresse de la zone mémoire d'origine, 
adr dest : adresse de la zone mémoire de destination, 
nb octets : nombre d'octets à copier. 


Structure mémoire de l'écran ST 


L'écran du ST a une taille de 32000 octets. Le codage des informa- 
tions graphiques est différent selon le mode graphique utilisé. 

La basse résolution est organisée en 200 lignes de 320 pixels avec 16 
couleurs possibles par pixel. Chaque ligne a une taille de 160 octets. 
Un octet contient donc la représentation binaire de 2 pixels. C’est le 
mode graphique le plus utilisé pour les jeux. 

Les programmes donnés en exemple dans cet article sont prévus 
pour la basse résolution. 

La moyenne résolution est organisée en 200 lignes de 640 pixels avec 
4 couleurs par pixel. Les lignes font toujours 160 pixels, mais yn oc- 
tet contient la représentation binaire de 4 pixels. C’est un mode gra- 
phique rarement utilisé pour les jeux. Il sert pour les applications 
professionnelles réalisées par les utilisateurs qui n’ont pas de moni- 
teur monochrome haute résolution. 

La haute résolution fait 400 lignes de 640 pixels en deux couleurs. 
Les lignes ont une taille de 80 octets. Un octet contient la représenta- 
tion binaire de 8 pixels. Ce mode graphique nécessite un moniteur 
monochrome de haute performance. La plupart des applications 
professionnelles utilisent la haute résolution. 


Manipulation de l'écran avec BMOVE 


L'instruction BMOVE permet de copier des blocs de mémoire et donc 
des parties de l'écran. On peut copier le contenu de l'écran en 
mémoire et ensuite le réafficher. 


VO ROR ER RO RROAUAUR AA RUR RH RE ARR RO ARE 


! x SAUVEGARDE DE L'ECRAN EN MEMOIRE * 

PT TILILELLIISIESLLISSISS SE NNS SSSR RES )) 

adr tampon% = MALLOC (32000) [RESERVATION MEMOIRE 
BMOVE XBIOS(2),adr tampon%,32000 !COPIE ECRAN MEMOIRE 
CLS JEFFACEMENT ECRAN 
VOID INP(2) JATTENTE CLAVIER 
BMOVE adr tampon%,XB10S(2),32000 !AFFICHAGE ECRAN 
VOID ENP (2) LATTENTE CLAVIER 
VOID MFREE(adr tampon“) {LIBERATION MEMOIRE 


Cette technique fonctionne dans toutes les résolutions du ST. La 
fonction «File select» et les boîtes d’alerte utilisent cette méthode (en 
fait, elles ne sauvent pas toute l’image, mais seulement la partie mo- 


difiée). 
Manipulation des lignes 


En faisant des manipulations graphiques des lignes, on obtient des 
effets intéressants. Il faut connaître l’adresse des lignes pour pouvoir 
les copier grâce à BMOVE Le numéro des lignes varie entre O et 199 
pour la basse et la moyenne résolution, et entre 0 et 399 pour la hau- 
te résolution. 


Adresse d’une ligne: Adr ligne = Adr ecran+Ligne*Taille ligne 
Basse résolution: Adr ligne = XBI0S(2)+1 igne*160 

Moyenne résolution: Adr ligne = XB10S(2)+1igne*160 

Haute résolution: Adr ligne = XBI0S(2)+1igne*80 


Exemple simple 


On peut faire un petit programme qui copie la première ligne d’un 
écran sur tout l'écran. 


PROCEDURE copie ligne LOCAL adr ligne0* 
LOCAL adr copies 
LOCAL ligne copie 


— } 
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adr ligne0% = XBI0S(2) 
FOR ligne copie = 1 TO 199 


IADR LIGNE A COPIER 


adr copie = XBIOS(2)tligne copie#*160  !ADR LIGNE 
BMOVE adr ligne0%, adr copies, 160 ICOPTE 


NEXT ligne copie 
RETURN 


Amélioration de l'exemple 


Au lieu de copier une seule ligne, on peut en copier plusieurs à la 
fois. Pour cet exemple, on divise l’écran en 20 bandes de 10 lignes. 
Elles sont numérotées de 0 à 19. La routine copie la bande © sur les 
autres bandes. 


PROCEDURE copie bande 
LOCAL adr org% 
LOCAL adr copie 


} ADRESSE BANDE 0 z 
adr org = XBI0S(2) 
FOR bande copie% = 1 TO 19 
! CALCUL ADRESSE BANDE 2 
adr copie = XBI0S(2)+10*bande copie**160 
! COPIE BANDE 1 SUR BANDE 2 
BMOVE adr org%, adr copie, 
NEXT bande copie“ 
RETURN 


1600 


Utilisation de plusieurs écrans en mémoire 


Ces petits programmes sont amusants, mais peu utiles. En revanche, 
l'intérêt est de réaliser des affichages à partir d’un ou plusieurs écrans 
stockés en mémoire. 

La place mémoire est reservée avec l'instruction MALLOC. La routine 
load degas permet de charger une image Degas Elite à n'importe 
quelle adresse en mémoire. On peut réaliser toutes sortes d'effets 
comme l'affichage rapide d’une image, l'affichage à partir du haut ou 
du bas de l'écran, l’inversion d’une image, l'affichage à partir du 
centre ou des bords, etc. Il faut tenir compte de l’adresse des écrans 
dans le calcul des adresses des lignes. L'adresse de base de l’écran phy- 
sique (celui qui est visible sur le moniteur de l'ordinateur), est four- 
nie par la fonction XB10S (2). Il ne faut surtout pas se tromper au ni- 
veau des adresses de base des écrans. 


Affichage rapide d'une image 


La technique la plus simple pour afficher rapidement une image est 
de la charger dans une mémoire tampon, puis de la copier sur l’écran 
avec BMOVE Etant donné la vitesse de BMOVE l'affichage est instan- 
tané pour l'utilisateur (en fait, il prend à peu près 20 millisecondes). 
Avec une routine de chargement directement en mémoire, l'affichage 
est lent et saccadé. 


Affichage à partir du bas de l'écran 


Pour afficher une image à partir du bas de l'écran, il suffit de la char- 
ger dans une mémoire tampon, puis d'afficher les lignes les unes 


après les autres de la ligne 199 à la ligne 0. La routine aff_bas du 
programme d’exemple montre que cette méthode est très simple à 
programmer. 


Affichage à partir du haut de l'écran 


Pour afficher une image à partir du haut de l'écran, il suffit de la 
charger dans une mémoire tampon, puis d'afficher les lignes les unes 
après les autres de la ligne O à la ligne 199. La routine aff_haut du 
programme d'exemple fonctionne sur ce principe. 


Affichage à partir du centre de l'écran 


Pour afficher une image stockée dans la mémoire sur l’écran à partir 
du centre, il faut afficher d’abord les lignes 99 et 100, puis les lignes 
98 et 101, et ainsi de suite jusqu'aux lignes O et 199. L'effet est amu- 
sant. La routine aff milieu du programme en exemple utilise cette 
technique. 


Affichage à partir des bords de l'écran 


Cette méthode est l’inverse de la précédente. Il faut d’abord afficher 
les lignes 0 et 199, puis 1 et 198, pour arriver finalement aux lignes 
99 et 100. La routine aff_ bord illustre cette technique. 


Affichage aléatoire k 


Cette méthode consiste à afficher les lignes d’une image dans un 
ordre aléatoire. Le numéro de la ligne à afficher est déterminé par 


‘ une fonction aléatoire. Il faut tenir compte des lignes déjà ‘affichées 


pour éviter de les réafficher. La solution la plus simple est d'utiliser 
un tableau ne contenant que des 0. Chaque fois qu’une ligne est affi- 
chée, on met l'indice du tableau correspondant à 1. Pour chercher 
une ligne non affichée, il suffit de lire le tableau à la recherche d’un 
nombre 0. 

La routine aff aléatoire du programme d'exemple montre une 
réalisation de cette technique. Cette routine utilise un tableau 
tst_ligne* pour la gestion des lignes. Elle fait un affichage ligne à 
ligne, mais on peut la modifier afin de travailler sur des blocs de 
lignes. L'affichage de l’image se fera plus vite puisqu'il y aura moins 
d'étapes d'affichage. Le tableau tst ligne prendra aussi moins de 
place (économie de mémoire). 


Inversion verticale d'une image 


Pour inverser verticalement une image, il suffit de la recopier en in- 
versant la position des lignes. La ligne O devient la ligne 199, la ligne 
1 devient la ligne 198, la ligne 2 devient la ligne 197, .., la ligne 199 
devient la ligne 0. 

La routine inversion ecran inverse l’image de l’écran physique et 
stocke le résultat dans une image tampon. Une fois inversion ter- 
minée, elle donne le résultat en le recopiant rapidement sur l'écran 


physique. 
Scrolling vertical d'une image 


Pour faire scroller une image sur une zone d'écran de hauteur h, il 
faut copier le bloc de lignes de hauteur h à partir de la ligne O de l'i- 
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mage, puis à partir de la ligne 1 de l’image, etc. La superposition ra- 
pide des blocs donnera l'impression d’un mouvement. 

En affichant l’image en bas de l’écran, on arrive à faire scroller un 
bloc de 100 lignes de haut d’une manière parfaite sans la moindre 
«bavure» vidéo. La routine scroll du programme d’exemple fait 
d’abord un scrolling vers le bas, puis vers le haut. 


Programmes d'exemples 


Les routines d'affichages ont été réalisées en GEÆA Basic 3.03. Les 
exemples utilisent deux images Degas Elite chargées en mémoire au 
début du programme. Le choix des images se fait grâce au sélecteur 
de fichiers. 


Problèmes de synchronisation vidéo 
et instruction VSYNC 


L'image affichée par un moniteur vidéo n’est pas une image fixe. En 
fait, c’est un spot vidéo unique qui se déplace à grande vitesse pour 
dessiner l’image. Ce spot balaie l’écran 50 fois par seconde (en terme 
technique, on dit que l'écran est rafraîchi à 50 Hz). Donc, 50 fois par 
seconde, le système d'affichage parcourt la mémoire vidéo du début 
à la fin (soit 32000 octets). Entre chaque balayage vidéo, il y a un pe- 
tit temps mort (le temps de balayage est de 16 millisecondes, et le 
temps entre deux balayages de 4 millisecondes). 

Lors de l'affichage d’un objet sur l'écran, celui-ci se met parfois à cli- 
gnoter, l’objet peut disparaître en partie, une barre horizontale peut 
apparaître, l'affichage peut être légèrement brouillé, etc. Ces effets pa- 


rasites viennent d’une interférence entre le système d'affichage et la ‘ 


routine graphique. Si le programme modifie une donnée de la mé- 
moire écran au moment où le système d’affichage envoie cette don- 
née sur l’écran, il se produit une perturbation graphique. 

Pour éviter ce problème, il faut travailler pendant le temps libre en- 
tre chaque balayage vidéo. La fonction Vsync arrête le déroulement 
du programme pendant le balayage vidéo. Après l'instruction Vsync 
le programme dispose d'un temps très court pour faire un affichage 
graphique sans craindre de problème vidéo. 


Travail en bas de l'écran 


Le spot se déplace sur l’écran à une vitesse bien définie. Après un 
Vsync on dispose de peu de temps pour faire un affichage sans para- 
site vidéo en haut de l'écran. En revanche, le temps disponible pour 
afficher quelque chose vers le bas de l'écran est plus important, puis- 
qu’on dispose du temps entre deux balayages vidéo, plus le temps 
pris par le système d’affichage pour arriver en bas de l'écran. 

La routine de scrolling travaille en bas de l’écran pour profiter de ce 
temps supplémentaire. Remontez la position d'affichage, et vous ver- 
rez apparaître une barre de synchronisation. 

La vitesse de rafraîchissement vidéo est de 50 Hz pour tous les moni- 
teurs couleur et de 70 Hz pour le moniteur monochrome Atari. 





POUR TOUTES QUESTIONS, TAPEZ 


3615 ATARI 


1 OKAKAKEKREERERRRAREREERERREREARRRRERERRERERRAK 


VER LR * 
! * EFFETS GRAPHIQUES AVEC FONCTION BMOVE * 
x * 


LOKKKKRERRRRERRARÉERERAERKERERERRERÉARAALERERRE 
LU RORRORRE ROREH AR AO RAR RO RARE ARR AAA CAO AR HOUR ROUE 


"x (C) 1990 Patrick Leclercq & ATARI MAGAZINE * 


LOKKKKKEHRRRRRRRÉRRERRERARREREARARAR AR RARÉRARARRAUEX 


" * Programmation en GFA BASIC 3.03 * 


LKR RE ORORR RAR RAR ARR ROURR RAA AR ARR RE 


RESERVE 50000 


DIM tst_ligne#(200) ITABLEAU POUR AFFICHAGE ALEATOIRE 


! RESERVATION MEMOIRE POUR BASIC 


imagel1%=MALLOC (32000) ! RESERVATION MEMOIRE 
image2%=MALLOC (32000) | RESERVATION MEMOIRE 


image _travai 1%=MALLOC (32000) ! RESERVATION MEMOIRE 
main 

VOID 

MFREE (image travai1%) 
VOID MFREE (image2%) 
VOID MFREE(image1%) 
END 


LIBERATION MEMOIRE 
LIBERATION MEMOIRE 
LIBERATION MEMOIRE 
FIN DU PROGRAMME 





LOKKKKKERKERREREEERRERRARELERERERARERAER 


*  ATTENTE D'UN EVENEMENT CLAVIER * 
LOHKKKKKKRAAKKRARARARERAR AR ERREUR 
PROCEDURE att_ clavier 

VOID INP(2) 
RETURN 





DO RAR AOKOKOROAORURORORAUE ERREUR ERA RAA ARR RER RER ee A RAR ROUE 


‘X CHARGEMENT D'UNE IMAGE DEGAS ELITE EN MEMOIRE * 
IMPTIIILLLILILLSILLLELSSEELÉESE SELS ES LS Se)... 
PROCEDURE Toad degas (nom$,adr%) 

LOCAL pal$ 


pal$=SPACES (32) 
OPEN "i",#99,nom$ 
SEEK #99,2 
BGET #99, VARPTR(pal$) , 32 
VOID XBIOS(6,L:VARPTR(pal$)) 
BGET #99, adr%, 32000 
CLOSE #99 
RETURN 


1 
! 
! RER RCRE HE HE DCE EE HE AAA CR ARRETE 
10% NCOPIE D'UNE LIGNE D'UN ECRAN SUR UN AUTRE * 
LV OKKKKEREEREERARRARERERRRAAERREEEEREREREALRAREAEAX 
PROCEDURE copie ligne(11%,adr_imgl%,12%,adr_img2*) 
LOCAL adr1l% 
LOCAL adr2% 
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adrl%=adr imagel#+11%*160 ! ADRESSE DELA LIGNE 1 

adr?2%=adr image2%+12%*160 ! ADRESSE DE LA LIGNE 2 

BMOVE adr1%,adr2%,160 
RETURN 


{ COPIE LIGNE 1 SUR LIGNE 2 


' 
LUKRARER RE RAR AA AUROAUR AR AU ANR ANR NOR OR OR ER ARR RARE 


"+ AFFICHAGE D'UN BLOCK DE LIGNES SUR L'ECRAN * 
LOKKKERERRERRERREREREERRARAREREEREREARARRARAREARREX 
PROCEDURE aff_block(11%,n1%,adr_imgl%,12%,adr_img2%) 
LOCAL adrl# 
LOCAL adr2% 
LOCAL tailles 
adr1%=11#%*160+adr imgl# 
adr2%=12#%*160+adr img2% 
taille%=nb1%*160 


| ADRESSE BLOC 1 
| ADRESSE BLOC 2 
| TAILLE DU BLOC 


# 


VSYNC ! ATTENTE SYNCHRO VIDEO 
BMOVE adrl%,adr2%,taille* ! COPIE DU BLOC 
RETURN 


LOKKKKKERRERREXERRRRAERRARARAAERRRREERERERRRARRRARARERERRE 
1 * AFFICHAGE DE L'IMAGE A PARTIR OÙ BAS DE L'ECRAN * 
IMPTTILLIILILIELLLLESILSÉELELESSSILIL SES SSL NS, LL), )) 
PROCEDURE aff bas(adr_image*) 
LOCAL ligne% 
FOR ligne%=199 TO O0 STEP -1 
VSYNC 
@copie ligne(ligne%,adr image%,ligne%,XBIOS(2)) 
NEXT ligne* 
RETURN 





DR RER HA AR AAA RARE Re Re he ee A AA RAR HR RAR 


‘ * AFFICHAGE DE L'IMAGE A PARTIR DU HAUT DE L'ECRAN * 
LOXKKKKAKEAKEKEEKXERRERREREEREERERRARARERKRAREREREERERRRRAR 
PROCEDURE aff_haut(adr image“) 
LOCAL ligne% 
FOR ligne%=0 TO 199 
VSYNC 
@copie ligne(ligne*,adr image, ligne*,XB10S(2)) 
NEXT lignes 
RETURN 





LV OHKKKKRKREXRERARREERERRARAARAARKRARÉERRERÉRRAXARREREERX 


x AFFICHAGE IMAGE A PARTIR DU. MILIEU DE L'ECRAN * 
VOKEKXKKKERERKRRKREREEKRREREREKRAARERERERRERRERERAEREREREE 
PROCEDURE aff milieu(adr image“) 

LOCAL lignel% 

LOCAL 1igne2% 


LOCAL 1% 

1 

ligne1%=99 
ligne2%=100 


FOR i%=1 TO 100 
VYSYNC 
@copie ligne(lignel%,adr_image%, l'ignel#,XB10S(2)) 
@copie ligne(ligne2%,adr_image%, l'igne2%,XBI0S (2)) 
DEC lignel 
INC ligne2*% ù 

NEXT i% 

RETURN 





LOKKKKEKERARÉRÉRARRÉARE 


‘x AFFICHAGE IMAGE * 
D ORRKKKRRARKRRERRÉRRERERRE 
PROCEDURE aff_bords(adr_image“) 
LOCAL Tignel% 
LOCAL ligne2* 
LOCAL i% 
L 


ligne1#=0 

ligne2%=199 

FOR i%=1 TO 100 
VSYNC 
@copie ligne(lignel#,adr_image%, lignel#,XB10S (2)) 
@copie ligne(ligne2%,adr_image*, l igne2%, XBI0S (2)) 
INC lignel*% 
DEC ligne2% 

NEXT 1% 

RETURN 


1 





LORKKREXERARRERAR AREA RRRÉAARRAMÉREARE 


‘ * AFFICHAGE ALEATOIRE D'UNE IMAGE * 
LOKKAKAKKAKKKRERERREREREREERARERRERRERERRÉEEE 
PROCEDURE aff _aleatoire(adr. image*) 
LOCAL ligne 
LOCAL i% 
ll 
FOR i%=0 TO 199 1! INIT TABLEAU DE LIGNES AFFICHES 
tst_ligne*(i%)=0 
NEXT i% 
: 
FOR i%=1 TO 200 
REPEAT ! RECHERCHE D'UNE LIGNE NON AFFICHE 
1igne%=RANDOM(200) 
UNTIL tst_ligne%(ligne*)=0 
tst ligne%(1igne#)=1 ! MARQUAGE LIGNE 
@copie ligne(ligne*,adr image%, ligne#,XB10S (2)) 
NEXT i% 
RETURN 
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TL OKKKKKRKÉAKRARARKERERRRRRENRÉRE RER RARE 


! * INVERSION COMPLETE DE L'ECRAN * 
LOHRKAKKKKKEEXKRARARAREAREREERRARAREAE 
PROCEDURE inversion ecran 

LOCAL lignel% 

LOCAL ligne2% 


ligne2%=199 
: 
FOR ligne1%=0 TO 199 
@copie ligne(lignel1%,XB10S(2),1igne2%, image _travai 1%) 


DEC ligne2% 
NEXT lignel* 


VSYNC 
BMOVE image travai1%,XBIOS(2), 32000 
RETURN 


D OKXKKKKAKRKKKRAEAKREKRKERERERERREEE 
! * ROUTINE DE SCROLLING * 
D ORRRRKAKAKARAKKRRAREERERERREX 
PROCEDURE scroll(adr image“) 
LOCAL ligne* 
FOR ligne%=0 TO 100 STEP 1 
aff_block(ligne*,100,adr_image*,100,XB10S (2)) 
NEXT ligne% 
FOR ligne%=100 TO O STEP -1 
aff _block(ligne*,100,adr_ image, 100,XB10S (2)) 
NEXT ligne 
RETURN 


LOKARRKRRARRRRARRERARERERRERERRAREE 
® *  DEMONSTRATION DU SCROLLING * 
VOKKXKKKARKAXARRARRERERKREERERERRARAERX 
PROCEDURE demo scroll (adr image“) 

LOCAL i% 

FOR i%=1 TO 2 

@scroll(adr image#) 

NEXT i% 

RETURN 


PROCEDURE demo graph 
1 
@aff_haut(imagel%) 
@att clavier 
@aff_haut(image2%) 
@att clavier 
: 
@aff_bas(image1#) 
Gatt clavier 


Gaff_bas(image2*) 
Gatt clavier 
@aff_bords (imagel#) 
@att_ clavier 
@aff_bords (image2%) 
@att clavier 
! 
@aff_milieu(imagel#) 
Gatt clavier 
@aff milieu(image2%) 
@att clavier 
@inversion ecran 
@att_ clavier 
Ginversion ecran 
Gatt clavier 
@aff_aleatoire(imagel#) 
@att clavier 
@aff_aleatoire(image2%) 
@att clavier 
@scroll(imagel#) 
@att clavier 
@scroll(image2%) 
Gatt clavier 
RETURN 
D OKKKAKAKKKAREERKERERRARA ER 
‘x ROUTINE PRINCIPALE * 
L'OHAKAAKAKKEKEERERRERERRARXE 
PROCEDURE main 
LOCAL fondf$ 
LOCAL f2$ 
FILESELECT "*.PI1"," ",fond$ ! SAISIE NOM IMAGE 
@load degas(fond$,imagel*)  ! CHARGEMENT IMAGE 
FILESELECT "*.PI1"," ",f2$ 
@load degas(f2$,image2*) 


Gatt clavier 
@demo graph 


RETURN 












SI VOUS N'’'AVEZ PAS LE 
COURAGE DE TAPER TOUS LES 
LISTINGS, COMMANDEZ LA 
DISQUETTE BEST OF GFA BASIC 
AVEC LES IMAGES AU PRIX DE 
70 F SEULEMENT. 
Bon de commande en page 50 
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GRAPHISME EN GFA BASIC 





396 IMAGES 
NE DISQUETTE 


Economisez de la place mémoire 


Les images des jeux d'arcades sont construites à partir d'élements 
graphiques collés les uns contre les autres, codant ainsi une image 
écran en quelques centaines d'octets. 


es éléments dépendent du type de décor. Pour dessiner un 
temple (sujet classique des jeux d’arcades/aventures), il faut 
des colonnes, des murs, des symboles bizarres, des portes, des 
éléments de décors, etc. Les colonnes peuvent être conçues de plu- 
sieurs éléments: un socle de base, un élément intermédiaire et un 
élément terminal. Pour dessiner une colonne à un endroit quel- 
‘ conque, il faut d’abord mettre le socle, puis un ou deux éléments in- 
termédiaires avant de mettre l'élément terminal. La taille de la colon- 
ne n’est déterminée que par le nombre d'éléments intermédiaires. 
Avec les mêmes éléments de base, on peut avoir de grandes ou de 
toutes petites colonnes. 


Pour dessiner les murs, trois ou quatre éléments différents suffisent. 
En les alternant, on peut créer un mur tout à fait valable. Pour 
rompre la monotonie, on peut aussi insérer des éléments de décors 
comme des vases, des autels ou des dessins étranges reproduisant les 
traits d’une divinité quelconque. 


On peut dessiner un temple avec environ 40 éléments graphiques de 
base. Ils peuvent être utilisés pour dessiner plusieurs salles du temple. 


Construction d'images en GFA Basic 


Avant tout, il faut définir la taille des éléments graphiques et la taille 
des images construites. Cet article ne traite que de la basse résolution 
(320x200 pixels en 16 couleurs). 

C’est la résolution la plus utilisée, aussi bien pour les jeux que pour 
le graphisme pur. Les éléments font 16x16 pixels. Ce n’est pas une 
obligation, mais c’est devenu une norme de facto. Il suffit de regar- 
der les images des jeux d’arcades pour en être convaincu. Avec 18x10 
éléments, on obtient une image de 288x160 pixels. 

C’est un format assez courant. Pour obtenir une image prenant pra- 
tiquement tout l'écran, il faut utiliser un format de 20x12 éléments 
(320x192 pixels), mais il vaut mieux laisser de l’espace pour afficher 


différents intervenants (décors divers, scores, nom du logiciel, 


nombre de vies, etc.) 
En prenant des éléments de 16x20 pixels, on peut couvrir entière- 
ment l’écran avec un format de 20x12 cases. 


Taille d’un élément graphique 


Un élément de 16x16 pixels (basse résolution) stocké dans une va- 
riable alphanumérique prend 134 octets. La place mémoire nécessai- 
re pour 256 éléments est de 34304 octets. 


PPPETTILLILLELLLISIÉ RES LES EE EEE ESS 


! * CALCUL DE LA TAILLE MEMOIRE * 
1 x D'UN ELEMENT DE 16x16 PIXELS * 
LORKERKAKAKERÉERRERERRRARRERRERRRRARE 
GET 1,1,16,16,var$ 

GET 1,1,16,16,var$ 

PRINT LEN(var$) 


Stockage des éléments en mémoire 


Les instructions graphiques du GÆA Basic (PUT et GET) stockent les 
données graphiques dans des variables alphanumériques. Les 
éléments graphiques sont donc stockés dans un tableau alpha- 
numérique. Une variable nb_elements* permet de connaître le 
nombre d'éléments en mémoire. 


DIM element$ (256) 
nb_elements%=0 


Pour éviter de perdre de la place en mémoire, les tableaux commen- 
cent à l’indice 1 grâce à l’instruction OPTION BASE L 


Sauvegarde avec l'instruction STORE 


À première vue, la technique de sauvegarde la plus simple serait 
d'utiliser l'instruction STORE qui permet de sauver un tableau alpha- 
numérique avec une seule instruction. Mais cette méthode ne fonc- 
tionne pas toujours correctement. L'instruction STORE utilise les 
codes de contrôles 10, 11 et 27 pour repérer les fins de lignes et la fin 
du fichier. Lorsque ces codes sont présents dans une chaîne alpha- 
numérique (ce qui arrive souvent avec des données graphiques), 
l'instruction RECALL qui doit recharger le tableau se trompe de 
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repère et charge les lignes n'importe comment. En résumé, STORE 
n’est efficace que pour sauver des textes ASCII normaux (codes com- 
mençant à 32). 


Sauvegarde avec l'instruction BPUT 


L'instruction BPUT permet de sauver une zone de mémoire dans un 
fichier. Grâce à cette instruction, on peut sauver les éléments gra- 
phiques les uns derrière les autres dans un fichier. La procédure Sa- 
ve element(nom$) du programme GEN_IMGS utilise ce système. Elle 
sauve au début du fichier la palette de couleurs des éléments. Les 
données graphiques sont relues avec l'instruction BGET qui permet 
de lire des données à partir d’un fichier. La procédure Load ele- 
ment (nom$) du programme AFF_IMGS fonctionne de cette manière. 


Stockage des images en mémoire 


Pour mémoriser une image, il faut un tableau de 18x10 éléments. 
S’il y a moins de 256 éléments, ils peuvent être codés sur des octets 
(symbole |). Une image prend alors 18x10 octets =180 octets. On 
peut avoir 720x1024/180 images sur une disquette, soit 4096 images. 


DIM images|(10,18,10) 


Le tableau images | () peut contenir 10 images. C’est un chiffre aussi 
valable qu’un autre pour un programme de démonstration, mais cela 
peut tout aussi bien être 50. 


DIM images |(50, 18,10) 


Le GFA Basic ne peut pas manipuler des tableaux de taille supérieure 
à 32 Ko. Le tableau image|() ne peut donc contenir plus de 177 
images (32000/180). Il est possible de les répartir sur plusieurs ta- 
bleaux. 


Si il y a plus de 256 éléments possibles, on peut les coder avec des 

‘entiers courts (16 bits-symbole 8). Il peut alors y avoir 65536 
éléments différents. Le codage d’une image prend 360 octets 
(18x10x2). On peut avoir 720x1024/360 images sur une disquette, 
soit 2048 images. 


» 
DIM images&(10, 18,10) 


Il ne peut y avoir plus de 90 images dans le tableau images&() à cau- 
se de la limitation de 32 Ko pour un tableau. Il faut donc stocker les 
images sur plusieurs tableaux. 


Affichage d'une image 


Pour afficher une image, il faut afficher chaque élément graphique à 
sa place. La procédure Aff.image() affiche l’image num_image* à 
partir de la position graphique (pos_x0%,pos_y0%). On peut affi- 
cher une image à n’importe quel endroit de l'écran. Les variables px% 
et py% contiennent la position d’affichiage de l’élément courant. 
Après l'affichage de chaque élément, on incrémente px% de 16 pixels. 
De même après l'affichage d’une ligne, on incrémente py% de 16 pi- 
xels. 


D RIRE HR RH RARE HE ARR RE A RO RAR AA 


! * AFFICHAGE IMAGE num image“ À LA POSITION a 
! *x (pos x0%,pos y0%) # 
ù RERÉELERERÉRRERÉERERERERERREERRE REA RER ER RRRERERRRANE 
PROCEDURE Aff image (num image“) 

LOCAL ix%,1y% 

LOCAL px%,py 


| INIT POS X IMAGE 
py#=pos _y0% ! INIT PAS Y IMAGE 
FOR iy%=1 TO 10 ! BOUCLE DES LIGNES 
FOR ix%= l'TO 18 1! BOUCLE DES CASES 
PUT px%, py%, images|(num image*, ix%, 1y%) 
INC px%,16 | PASSAGE POS X SUIVANTE 
NEXT ix% | FIN BOUCLE CASE 
INC py%,16 | PASSAGE LIGNE SUIVANTE 
px#=pos_x0* | RETOUR DEBUT LIGNE 
l 
! 


px#=pos_x0 : 


NEXT iy% FIN BOUCLE LIGNES 
RETURN FIN ROUTINE 


Sauvegarde des images sur disque 


Le tableau contenant les images est sauvé grâce à la fonction Sa- 
ve tableau(). Cette fonction calcule l'adresse et la taille d’un ta- 
bleau d’octets avant de sauver le tout dans un fichier binaire. Les in- 
formations permettant de comprendre le codage des tableaux sont 
présentes dans le manuel du GÆA Basic 3.0 au chapitre Variables et 
gestion de la mémoire». 


La fonction Save tableau n’est valable que pour des tableaux d’oc- 
tets. Pour sauver un autre type de tableau, il faut augmenter la taille 


mémoire des cases (1 octet pour un tableau d’octet, 2 ‘octets pour un 
tableau d’entier court (8), 4 octets pour un tableau d’entier long (+). 


Lecture des images à partir d’un disque 


Le tableau des images est chargé en mémoire avec la routine 


Load tableau qui relit un tableau sauvé avec la procédure Save _ta- 


bleau. Cette routine ne peut relire que des tableaux d’octets. 


Système de construction d'images complet 


Pour avoir un système de construction complet, il faut un utilitaire 
de création des éléments graphiques, un utilitaire de «fabrication» 
des images, et un système d'affichage. 


Les programmes GEN_ELEM EDIT IMG et AFF_IMGS sont des utili- 
taires écrits en GÆÀ Basic 3.0. Ils remplissent chacun une fonction 
bien précise dans la «chaîne de fabrication» des images. 


Programme GEN_ELEM 


Ce pro me est un convertisseur d'images. Il lit un ensemble. 
gram g 


d'éléments graphiques stockés sur des images au format graphique 
Degas et génère un fichier binaire réutilisable par d’autres pro- 
grammes. Les éléments graphiques de base sont dessinés avec le logi- 
ciel de dessin Degas Elite. Une fois fes images terminées, le program- 
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DS Ep, 


TT ES CET TT 





Peer 


ELA NS 


FPNCT 


Été 


meur stocke la position de tous les éléments graphiques dans le pro- 
gramme GEN_ELEM grâce à l’instruction DATA. Une fois lancé, le pro- 
gramme lit toutes les images les unes après les autres, et génère le fi- 
chier d'éléments graphiques. 


Programme EDIT_IMG 


Cet utilitaire sert à «fabriquer» les images. L'utilisateur peut l’em- 
ployer pour les modifier à volonté. Il se présente sous la forme d’une 
carte avec un menu (sauvegarde des images sur disque, lecture d’un 
jeu d’images, sortie du programme) en bas à gauche, le dessin d’un 
élément à droite, et un numéro de carte compris entre 1 et 10 affiché 
aussi à droite. 


Si l'utilisateur clique sur une case de l’image, l’élément de la case est 
remplacé par l’élément courant. C’est ainsi qu’il est possible de pla- 
cer n'importe quel élément à n'importe quelle position de l’image. 


L'éditeur permet de travailler sur 10 images à la fois. Le numéro de 
l’image courante est affiché en bas à droite de l’écran. Le programme 
peut être modifié pour travailler avec n'importe quel nombre 
d’images. 


Programme AFF_IMGS 


Ce petit programme est une démonstration du système de construc- 
tion des images. Il lit un fichier d’images et les affiche les unes après 
les autres. Pour obtenir un affichage rapide, ce programme utilise 
une astuce courante dans la programmation des jeux: l’image est 
construite dans une image de travail situé en mémoire. Lorsque le 
dessin est terminé, on recopie l’image de travail sur l’écran. L’utilisa- 
teur a l'impression d’un affichage instantané, mais ce n’est qu’une il- 
lusion. 


IP TTETTTE TI LIT LI ILILLILLLLLILIESI SES SLESLS SES.) ) 


[Ue : d: * 
‘ # GENERATION DU FICHIER D'ELEMENTS GRAPHIQUES * 
LEE 2 * 


PTT TE TT TITI LLILSILILISCLIELLLLIEELESLSILS SES.) 


KKKERKKRRRRRERRRRRARRAAHR 


* Programme GEN ELEM * 


KRÉRRRRRRRREARRRRRRA RARE 


PATES LILI ILIS LILI SSI S EL ETES RÉ LS LES.) ;)) 


#* (C) 1990 Patrick Leclercq & ATARI MAGAZINE  * 


PTTTSIILIILILELLSLLILTI DITES LS ESS ESS SE SLT), ; 


PORT TT ET TESTS TTL III LILILELELLIS SL ESS Less...) 


x 


* Cet utilitaire génére un fichier binaîre contenant les 
* éléments graphiques à partir du nom d'une image DEGAS, 
* et de la liste des positions des éléments (stockées % 
* dans des lignes de DATA). * 


D RARE EEE ER ARR ROC AE RO ER AR AR RARE A 


* 


; —_—__ 


VARIABLES GLOBALES : 


* element$()  : Tableau contenant les éléments graphiques 
‘ nb elements* : Nombre éléments dans le tableau element$() 
‘ nom imagef : Nom image DEGAS contenant les éléments à lire 


nom_fichier$ : Nom fichier contenant les éléments graphiques 
pal_elements$: Palette de couleurs des éléments 
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RESERVE 50000 
OPTION BASE 1 
DIM element$(256) 
nb _elements*=0 


RESTORE 
READ nom _imagef ILECTURE DU NOM DE IMAGE A LIRE 


READ nom_fichier$ ILECTURE NOM FICHIER BINAIRE A GENERER 
@load_degas (nom imagef) {LECTURE DE L'IMAGE DEGAS ELITE 
@lecture elements LECTURE ELEMENTS GRAPHIQUES IMAGE 
@save elements(nom fichier$) SAUVER DISQUE FICHIER ELEMENTS 

END FIN DU PROGRAMME 


1 RESERVATION DE MEMOIRE POUR BASIC 
LES TABLEAUX COMMENCENT A 1 


} TABLEAU LES ELEMENTS GRAPHIQUES 
} NOMBRE D'ELEMENTS DANS LE TABLEAU 


. a, 


D ORARRR ARR RAR ARR A A ÉRNORIORRARRRE 


! x LECTURE IMAGE DEGAS ELITE * 
IMPTTTTT LT LIL LS LI LÉIELESS SES): 
PROCEDURE load degas(nom$) 

LOCAL pal$ 

' 


| RESERVATION MEMOIRE POUR PALETTE 

! OUVERTURE DU FICHIER 

1 ON EVITE L'INDICATEUR RESOLUTION 

BGET #1,VARPTR(pal$),32 ! LECTURE DES 32 OCTETS DE PALETTE 

pal_element$=pal$ | MEMORISATION PALETTE DES ELEMENTS 
VOID XBI0S(6,L:VARPTR(pal$))! MODIFICATION PALETTE SYSTEME 

BGET #1,XB10S(2),32000  ! LECTURE IMAGE 

CLOSE #1 1 FERMETURE DU FICHIER 

RETURN 


pal$=SPACES (32) 
OPEN "i",#1,nom$ 
SEEK #1,2 





À HARMONIE ARE RENE A OCR 
! x SAUVEGARDE DÉS ELEMENTS GRAPHIQUES * 
PR EL LL 


! RARE EE DE A RAA AC RAR AAA 


ü FORMAT DU FICHIER BINAIRE : is) 
Ÿ - Palette couleur des éléments (32 octets); * 
— Nombre d'éléments du fichier (1 octet); w 


(134 octets); * 
(134 octets); * 


— Elément graphique 1 
— Elément graphique 2 
Elément graphique n (134 octets); * 
! * — Dernier élément graphique (134 octets); * 
eee ee He CH ARR EE HO RAR AHSA D AR RAR 
PROCEDURE save elements (nom$) 
LOCAL i% 

ll 

OPEN "o",#1,nom$ 

BPUT #1,VARPTR(pal_element$) , 32 
OUT #1,nb elements* ECRITURE NOMBRE ELEMENTS 
FOR i%=1 TO nb elements DEBUT BOUCLE LECTURE 
BPUT #1,VARPTR(element$(i%)) ,134! ECRITURE DE L'ELEMENT i% 


X OX # *# *X x 


OUVERTURE DU FICHIER 
ECRITURE PALETTE ELEMENTS 


NEXT i% | FIN BOUCLE LECTURE 
CLOSE #1 { FERMETURE DU FICHIER 
RETURN 





D RR RM RIRE ARR RAR ARR IOR AR ARR RAR 


 # LECTURE D'UN ELEMENT GRAPHIQUE * 


DORA RME RAR AR AA RRORRRR OR RARE RARE 


LORAKERRRARÉKAR ERA ROR RUN RAR AAA RARRARAIRE 


1 *X nums : Numéro de l'élément a lire * 
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1 x posx# : Position X de l'élément + DATA 120, 1 
"* posy# : Position Y de l'élément * DATA 137, 1 
LORRRRRERRANRRRERERÉERRERRRRRERAARERAAAEER DATA 154, 1 
RP TETE TT TE TT TS LL SLI TILL LLLILELLIILES SL ELILLL LS.) ‘ DATA 171, 1 
"x L'instruction GET fonctionne avec 4 paramêtres : x | DATA 188, 1 
1 x xl, yl, x2, y2. La fonction lec element doit fabriquer | DATA 205, 1 
# DATA 222, 1 
! x les coordonnées x2 et y2 à partir des position posx# et DATA 239, 1 
‘ x posy#. Etant donné que les éléments graphiques ont une DATA 256, 1 
‘ x taille de 16 pixels, il faut rajouter (16-1) à la DATA 273, 1 
‘ * coordonnés de début de l'élément pour obtenir la DATA 290, 1 


Le premier pixel compte aussi dans la longueur de 
l'élément. Avec un début de 10, un élément d'une longueur 
de 16 pixels se termine au pixel 25. Les pixels 10,11, 


* * 
* * 
x %k 
*« * 
! * coordonnée de fin. Pourquoi (16-1) et non 16 ? * | DATA -1 
* * 
* * 
+ * RORR KR ROROR POUR ROM M RO RER RE R ARR RARE E 
* 


1 x 12,13,..,24,25 constituent cet élément. C'est pourquoi on he Lis 
# ! # EDITEUR D'IMAGES CONSTRUITES * 
! x utilise la formule (16-1). Lei UE 1 


KKKRRERARARRRRRERRERRARÉRRERERRAREX 


RAR ARR RARE HR DAC ee CREER DORE MAR RER ARR RAC 


PROCEDURE lec_ element (num%,posx%,posy#) 
LOCAL posx?2%,posy2*% * Programme EDIT IMG * 


' OR ORAOK AAA RU RAR R RRARRRE 


KKKRRERRARRRARERAERMAR AMAR 


RORRAOH He He ER OR ARR AA AR RE RCA OR RARE 


* (C) 1990 Patrick Leclercq & ATARI MAGAZINE * 
* Programmation Interpréteur GFA BASIC 3.03  * 


CÉTTILLLLLELLSELILIIT SSI ET SI LISE ESS LL)... ;,; 


posx2%=posx%+(16-1) 

posy2%=posy#+(16-1) 

" LECTURE ELEMENT num% 

GET posx#,posy#,posx2%, posy2%,element$ (num) 
RETURN 


n AT TTL I LIT IIIILLIS LL LLILLILL.S) 


Û * VARIABLES GLOBALES DU PROGRAMME * 


HRK MR D He Re OR RAR OR RATE 














PTT TITSLLILLILLILLILILILLS LI SEE S SES)... 








‘ x LECTURE DE TOUS LES ELEMENTS GRAPHIQUES * ! element$() :Tableau contenant les éléments graphiques 
LH RAR ARR MRORRRR RAR AN MERE HE AAA AR RME HE ARR OK À nb_elements* :Nb éléments graphiques dans element$() 
PROCEDURE lecture elements ! images|() :Tableau contenant le codage des images 
LOCAL px%,py% f ! zones#() :Tableau contenant les zones de clics 
' " nb zones* :Nombre de zones dans tableau zones#() 
DO ! sorties :Condition de sortie du prg 
READ px% 1 LECTURE PREMIERE DONNEE ‘ element_courant* :Num élément selectionné par utilisateur 
EXIT IF px=-1 1 TEST SI DONNEE DE FIN (-1)  num_image“ :Numéro de l'image en cours d'édition 
INC nb elements* { UN ELEMENT GRAPHIQUE DE PLUS ! posx0% :Position x d'affichage de l'image courante 
READ py# ! LECTURE POSITION Y ELEMENT ! posy0% :Position y d'affichage de l'image courante 
@lec element (nb_elements%,px%,py#)! LECTURE D'UN ELEMENT " clic x :Pos x dernier clic dans zone écran 
LOOP clic y :Pos y dernier clic dans zone écran 
RETURN ! 
! l 
ER en ee RESERVE 50000 RESERVATION DE MEMOIRE POUR LE BASIC 
D ARR RAR ARMOR RO K OPTION BASE 1 ILES INDICES DE TABLEAU COMMENCENT A 1 
‘ * DEFINITION DES ELEMENTS * ! 
D RAR RHIN AR RIRE ARR A RREUR DIM images|(10,18,10) !TABLEAU POUR LES IMAGES 
‘ DATA Nom image DEGAS ELITE ; 
! DATA Nom fichier éléments à générer DIM element$(256) ITABLEAU POUR LES ELEMENTS 
! DATA x, y nb_elements*%=0 
! DATA x,y S - 
‘ DATA -1 (-1 = INDICATEUR DE FIN DE DATA) DIM zone#(10,4) ITABLEAU POUR LES ZONES DE CLICS 
d j nb_zones#=0 
DATA DESSIN.PI1 Emain IAPPEL PROCEDURE PRINCIPALE 
DATA ELEMENTS.ELE END À {FIN DU PROGRAMME 
' 1: 
DATA 1, 1 ! 
DATA 18, 1 D OKKKKKRARAARREARARRAAARR AURA ANNE 
DATA 35, 1 ‘ *  ATTENTE D'UN CLIC SOURIS * 
DATA 86, 1 1 RRRANEE ERA ENARERRERRERERER ANR 
DATA 103, 1 PROCEDURE att_clic(VAR xm%,ym“) : 
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LOCAL km 
REPEAT 
MOUSE xm%, ym%, km“ 
UNTIL km%=1 : . 
RETURN 


D OR III ROME ARR 
! x ATTENTE ARRET CLIQUAGE * 
LR RRR RARE ARRETE 
PROCEDURE attOclic 

REPEAT 

UNTIL MOUSEK=0 
RETURN 


LOHARKRÉRRREREAAÉERRERRAARERAARARREMAUAR 


‘ * TEST SI UNE POSITION (px/py) ke 
‘x EST DANS UNE ZONE (x1,y1,x2,y2) * 
VOHAKKKERERRERRRARELRRREERRERRRRRRRALREAE 
FUNCTION tst_zone(px%,py#%,x1%,y1%,x2%, y2%) 
LOCAL r# 

r%=FALSE 

IF ((px%>=x1%) AND (px%<=x2%) AND (py%>=y1%) AND (py#<=y2#)) 

r#=TRUE 

ENDIF 

RETURN r# 
ENDFUNC 





PTT SSL LIILLI LÉ LILI LI SRE LLSIÉENEESLL SSL...) ),);)),;)) 


* SAUVEGARDE D'UN TABLEAU D'OCTETS SUR DISQUE * 
PTT TS STILL L SELLES ES LIST RS ESS), SR ,..;;.;)) 
PROCEDURE save tableau(nom$, VAR tab] ()) 

LOCAL nb dim 

LOCAL nb_elen% 

LOCAL adr data 

LOCAL taille data% 
nb_dimé=INT{ARRPTR(tab|())+4] 
adr_data%=LONG{ARRPTR(tab| ())} 
nb_elem*=DIM?(tab| ()) 

taille data%=nb elem+nb dimé*4 
BSAVE nom$,adr däta%,taille data* } SAUVEGARDE ZONE TABLEAU 
RETURN 


! NOMBRE DE: DIMENSIONS 

! ADRESSE TABLEAU 

! NOMBRE ELEMENTS TABLEAU 
} TAILLE DU TABLEAU 





PRIS LILLELELLER ELLE SES SES STE), 


* LECTURE D'UN TABLEAU D'OCTETS * 
HRRRARERRREERERARERREREERAREREREAREE 
PROCEDURE Toad tableau(nom$,VAR tab|()) 
LOCAL adr data 
adr_data%=LONG{ARRPTR(tab] ())} YADR ZONE MEMOIRE TABLEAU 
BLOAD nom$,adr data“ CHARGEMENT TABLEAU 
RETURN 





VOKRRKKKKRERERERREERERAREEERERRRARERRARERARAR 


‘ X  INITIALISATION DU TABLEAU DES IMAGES * 
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D ORRIRA RARE RÉ ARU RAR RUN A ARR ARR AURA ER 


PROCEDURE init_images 
LOCAL 1%, 1x%,1Y% 
U 
FOR i%=1 T0 10 
FOR ix%=1 TO 18 
FOR iy%=1 TO 10 
images|(i%,1x%, 1y%)=1 
NEXT iy# 
NEXT ix% 
NEXT 1% 
RETURN 





OR RR RAR MR RAR RAR RAR TR ARUROR ROUX 


* INITIALISATION DES ZONES DE CLIC * 
LORKRRKEAAERÉER RNA RÉ ERA AREREERRRRAR RER É 
PROCEDURE init clic 

LOCAL x1#%,y1%,x2%,Y2% 


nb_zones#=0 
DO 
READ x14 
EXIT IF x1#=-1 
INC nb zones* 
READ y1% 
READ x2% 
READ y2% 
zone*(nb_zones#, 1)=x1% 
zone%(nb zones*,2)=y1% 
zone%(nb zones#,3)=x2% 
zone#(nb_zones*,4)=y2% ; 
LOOP 1 
RETURN 


: 

LORRAKRRERRRMRRRRRRRREMMRRERERAARRAR 

* DEFINITION DES ZONES DE CLIC * 

D ORRRR ARMOR AR AROHURRUUE HER RAR RAR RAA 

! DATA xl, yl, x2, y2 

! DATA x1, yl, x2, y2 

! DATA =-1 (INDICATEUR DE FIN DE DONNEES) 


DATA 35 , 187, 165, 197 
DATA 253, 190, 285, 197 
DATA 253, 167, 285, 174 
DATA 35, 167, 165, 177 
DATA 35, 177, 165, 187 
DATA 200, 190, 218, 197 
DATA 200, 167, 218, 174 
DATA 16, 3, 303, 162 
DATA =1 


1 

' 
L'OKRAKRAKÉRRRR AMAR ÉRRERER AR 
! * LECTURE DES IMAGES * 
LORAKARRKRKRERARARARRRARRR 
PROCEDURE lecture images 
LOCAL nom$ 

LOCAL path$ 

l 

path$=DIR$ (0)+"\*. IMG" 
FILESELECT path$," ",nom$ 


IDETERMINATION CHEMIN. COURANT 
[APPEL SELECTEUR DE FICHIERS 
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IF nom$<>"" ITEST SI PRESENCE D'UN NOM 
HIDEM IEFFACER SOURIS 
@load_tableau(nom$, images | ())!CHARGEMENT TABLEAU IMAGES 
num_image#=1l LINIT IMAGE COURANTE 


Caff_image AFFICHAGE IMAGE COURANTE 
Qaff_ num image AFF NUMERO IMAGE COURANTE 
SHOWM AFFICHAGE SOURIS 

ENDIF 

RETURN 


HARERRRREERRRR RÉ RARRRRIRRRR 


* SAUVEGARDE DES IMAGES * 


KARARRENRARRERRRRRRRRRRRRÉRÉ 


PROCEDURE sauver images 


LOCAL nom$ 

LOCAL path$ 

path$=DIR$(0)+"\*, IMG" 

FILESELECT path$," ",nom$ 

IF nom$<>"" ITEST SI NOM DE FICHIER 
HIDEM JEFFACER LA SOURIS 
@save_tableau(nom$, images | ())!SAUVER LE TABLEAU IMAGES 
SHOWM [AFFICHAGE SOURIS 

ENDIF 


APPEL SELECTEUR DE FICHIERS 


RETURN 





CTI ÉSLLESISELLLELELII EL SL SSL LL; ;);) 


* ROUTINE DE LECTURE DES ELEMENTS GRAPHIQUES * 


PTT TLLILLS III ILE SET LIL LS ELILLE EE LS). 


PROCEDURE load elements (nom) 


© OPEN “i",#1,nom$ 


LOCAL i% 
LOCAL pal$ 


! VARIABLE LOCALE POUR BOUCLE LECTURE 


JOUVERTURE DU FICHIER 

pal$=SPACES$ (32) 

BGET #1, VARPTR(pal$) , 32 

VOID XBIOS(6,L:VARPTR(pal$)) 

nb elements#=INP (#1) 

FOR i%=1 TO nb_elements* 
element$(i%)=SPACES (134) 
BGET #1,VARPTR(element$(i%)),134!LECTURE D'UN ELEMENT 


ILECTURE DE LA PALETTE 
IDECLARATION PALETTE 
LECTURE NOMBRE ELEMENTS 
IDEBUT BOUCLE LECTURE 


NEXT i% FIN BOUCLE LECTURE 
CLOSE #1 {FERMETURE DU FICHIER 
RETURN 


HIDE HHE HENRI HN 
* AFFICHAGE D'UN ELEMENT GRAPHIQUE * 
RH NH HEH HAE HUE IEEE AE IEEE HIER 


ÉTILTIIILILILIIILITS ST S ESS S SEC SELS Se); 


La position d'un élément sur l'écran se calcule de 
la maniére suivante : 

px% = (colonne*-1) *16+posx0% 

Le numéro x de l'élément varie de 1 a 18 
Affichage élément 1 a posx* 

Affichage élément 2 a posx#+16 


HA HER HUE A HD AA RERO 


OÙ * * * * 
+ À # *# *# * 


PROCEDURE aff _element(colonne*, ligne“) 


LOCAL px%,py# 
LOCAL num_element* 


IDETERMINATION CHEMIN COURANT 


! RESERVE MEMOIRE POUR ELEMENT 


num_element#=images| (num image*, colonne*, ligne“) 
*px%=(colonne#-1)*16+posx0% 
py#=(ligne%-1)*16+posy0% 
PUT px%,py%,element$ (num element) 
RETURN 





DELLE LEE RLE EST ETS SES ESS TETE SEE) 


* AFFICHAGE DE L'IMAGE COURANTE * 
ÉTILILLLEE EEE LLILIIES SSSR LITRES ESS 
PROCEDURE aff_image 
LOCAL ix%,iy% 
FOR iy#=1 TO 10 
FOR ix#=1 TO 18 
Caff_ element (ix%,iy#) 
NEXT ix% 
NEXT iy% 
RETURN 





PETLIIIA EL ELSE ETES SSL ISLE) SRE.) ));));:;;);;,:: 


* AFFICHAGE DE L'ELEMENT COURANT SUR L'ECRAN * 
PTTTLLTITSLLTI ITS TITI ILLLLS SL ELELES LT SSSR SSL), 1] 
PROCEDURE aff _el_courant 

PUT 201,175,element$ (element _courant#) 
RETURN 





RPTTTIIELSELSELELLES SES SSL LS ES SSL), );,)):;,;;) 


! % AFFICHAGE DU NUMERO D'IMAGE SUR L'ECRAN * 

RETTISSELEIL EE LES NES S SLI Si), );));,),::;;) 

PROCEDURE aff_num image 
PBOX 254,175,284,189 
TEXT 265,185,num image 

RETURN 

1 


LEFFACEMENT ZONE D'AFFICHAGE 
{AFFICHAGE NUMERO IMAGE COURANTE 


1 RCA AIR RON PERRET 
‘ x AFFICHAGE ECRAN EDITION * 
1 ERA PO RO RORR 
PROCEDURE aff edit 
CLS ! EFFACEMENT DE L'ECRAN 


PBOX 15,2,304,163 

1 

BOX 35,167,165,197 

LINE 35,177,165,177 

LINE 35,187,165,187 

TEXT 50,175,"SAUVER IMAGES" 
TEXT 46,185,"LECTURE IMAGES" 
TEXT 46,195,"SORTIE EDITEUR" 
1) 

BOX 200,167,217,197 
LINE 200,174,217,174 
LINE 200,191,217,191 
; - ! POSITION ELEMENT COURANT : 201,175 
L 

BOX 253,167,285,197 
LINE 253,174,285,174 
LINE 253,190,285,190 
L 


! ZONE DE L'IMAGE 


! ZONE DES COMMANDES TEXTES 


! ZONE DE L'ELEMENT COURANT 


} ZONE DE L'IMAGE COURANTE 


Gaff_image 1 AFFICHAGE IMAGE COURANTE 
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@aff_el_ courant } AFFICHAGE ELEMENT COURANT ENDIF 
Qaff_num image ! AFFICHAGE NUMERO IMAGE COURANTE RETURN 
RETURN : 


————————————……………………"_—…_…—_— 


Du ET SAUT On Se pe IS SRE MR re APE VA ER EAN PPT PE TETE TITI SII LI ILLII TITI TT IIS TT TT III ELLE EE ELLES 


+ t 
*  INCREMENTATION DE L'IMAGE EN COURS D'EDITION * 


D OKRRRRRRREEEERÉRRERRÉÉREEERRÉRARAERRARERARALRERAREEERRARELRARAX 
RORROIORR A ROR AURAI MERE ERA RE TOR A RON RAA RARE ER ARR RARE Re 


* MODIFICATION DE LA CASE SELECTIONNE PAR L'UTILISATEUR * 


PRES TÉLSILLLSIILILLLIILLILLSILE LE SES SES SES SES Sd es) 


RORAOKR RU ROKR AMOR HRK HEURE HR ERA RAR ARR RAR MO AR M OR RE RARE RER A 


RRRRRERRERAERRRRRARRÉEERAERER ARR RRRE RARE RÉ RRRR RAR ARR RARAÉUK 


" % CALCUL POSITION CASE : 


* Les images vont de 1 à 10. La routine vérifie si. * 
* J'utilisateur tente d'accéder à une image >10. 





LE: Le cal cul de la position de la case cliqué par * AH ke RH HORREUR ARAORRUAN 
" * l'utilisateur se fait en deux temps : ji PROCEDURE inc image 
1%  — 1) On calcule la position relative de clic par + 1F num image#<10, TEST SI INCREMENTATION POSSIBLE (IMAGE<10) 
HE rapport au bord de l'image (on soustrait la * INC num image*  !INCREMENTATION IMAGE 
| He position de l'image à la position de clic). Le HIDEM LEFFACEMENT SOURIS 
| PRE pxé=clic x%-posx0% et py#=clic y#-posy0* * eaff_image IAFFICHAGE NOUVELLE IMAGE 
É ‘x 2) On divise le résultat par 16 (taille d'une case) * @aff num image !AFFICHAGE NUMERO NOUVELLE IMAGE 
Î ai et on ajoute 1 puisque le résultat de la division* SHOWM IAFFICHAGE SOURIS 
{ di vas de 0 à 17 pour les colonnes à la place de Lt ENDIF 
\ to 1 à 18, et de O à 9 pour les lignes à la place de* RETURN 
ñ Ses 1 à 10. # : 
x a x ' 
ne : TEST D'ECRITURE : * î RAD HA AIRE ME OR 
‘ * Avant de modifier le contenu d'une case de l'image, la * ! % DECREMENTATION DE L'ELEMENT COURANT * 
Ë LE routine regarde si cette case ne contient pas déja la k [IMETTTILTELEZLISIEE ES SS LI LLES SSSR RS ii Si L.S)) 
! * bonne valeur. Cela évite Un accés vidéo inutile. ke PROCEDURE dec element 
\ ! x L'affichage est plus agréable comme ça. ” IF element courant%<>l 
! [MP TTSLILIIIETEIILIÉSLLLLLILLLLLLESSS ST SRE SES SSL...) .,.: DEC element courant 
| PROCEDURE modif case HIDEM : 
. LOCAL colonne @aff el courant 
4 LOCAL lignes SHOHM 
+ LOCAL px$,py# @attOclic 
1 LOCAL element* :  ENDIF 
à é RETURN 
pxé=clic x%-posx0% 1 POS X RELATIVE o 
Fe py#=clic y#-posy0% 1 POS Y RELATIVE a 
ï colonne%=INT(px%/16)+1 ! NUM COLONNE TABLEAU ù DL OHÉAKKKEEERRRARRERERRRRRRRÉR RARE MRÉERRNARIR 
| ligne=INT(py#/16)+1 ! NUM LIGNE TABLEAU ! *: INCREMENTATION DE L'ELEMENT COURANT * 
1 DL OXARAARRRARRRRRRRAARARERAÉARERERRRERERELARRE 
element#=images | (num image*, colonne“, l'igne#) PROCEDURE inc element 
IF element _courant#<>element* IF element _courant#<>nb elements* 
images| (num _image%,colonne*, ligne*)=element_courant* INC element_courant* 
HIDEM HIDEM 
@aff_element(colonne*, ligne) @aff el courant 
SHOWM SHOYWM 
ENDIF @attOclic 
RETURN ENDIF 


! RETURN 





D OHKRER RÉ A RRA HOMME HOHRRAROK OR RON OR RAR ARR ARR A ARR RE Lau OU Len EE ER ee mt bte RAA EN 
* DECREMENTATION DE L'IMAGE EN COURS D'EDITION * DRE ARR 


ORNE PE CR ROR HORREUR CR RAA RER A AR OR * TEST DE SORTIE pu PROGRAMME x 
KKKKRRAAÉKALENAEEARARRALLRRARARÉAE 


AC RRORR RH AH DCI EE RU ARR A HR OR A RO ARTE 


* RRROHOROR HE ED RAR AR ORAN OR RUMEUR ERA AA ARR RARE 


* Les images vont de 1 à 10. La routine vérifie si 
* l'utilisateur tente d'actéder à une image inférieure à 1 * 


* Cette routine met à jour la condition de sortie (sortie*)* 


LORRERAEERERERÉRRRRE RÉEL RRRAR RAR RRRRÉ RIRE MAIRE RER ARAÉRRARERARARK 1e) en fonction de la variable de réponse de la boite * 
PROCEDURE dec_image ! * d'alerte. J ” 
IF num_image<1 | TEST SI DECREMENTATION POSSIBLE 1 * sortie =0 => l'utilisateur ne veut pas quitter le prg; * 
DEC num image ! PASSAGE IMAGE INFERIEURE 1 * sorties =1 => l'utilisateur veut quitter le prg; ge 
HIDEM ! EFFACER LA SOURIS l OHAKRRARRRRR RÉ EEE RAR RRRRERÉRRRRERALRRREXAREREARERERRERARAREREX 
Qaff_image ! AFFICHAGE NOUVELLE IMAGE PROCEDURE tst sortie 
Gaff num image 1! AFFICHAGE NUMERO NOUVELLE IMAGE LOCAL tst# 
SHOWM ! AFFICHAGE SOURIS APRES MODIF ECRAN LOCAL m$ 
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m$="Voulez-vous vraiment|quitter l'éditeur ?" 
ALERT 2,m$,1,"Non|Oui",tst# 
IF tst#=2 
sortie#=1 
ENDIF 
RETURN 


——————_—_—————————————————— 


RP T TETE ST TITI LLI LL LIL LILI LLEEELESSESS SE) 


‘ x EXECUTION DES FONCTIONS DE L'EDITEUR * 
PTT P TT TT TI II LLLIILELI ELLES SC LESSL LEE) 
PROCEDURE exec_ fonction(ev#) 
SELECT ev“ 
CASE 1 
@attOclic 
@tst sortie 
CASE 2 
@dec_image 
CASE 3 
@inc_ image 
CASE 4 
@attOclic 
@sauver_images 
CASE 5 
@attOclic 
@lecture images 
CASE 6 
@dec_ element 
CASE 7 
@inc_element 
CASE 8 
@modif_case 
ENDSELECT 
RETURN 





MERE RRRORE He eee ee A 


* RECHERCHE DE LA ZONE DE CLIC * 


PTT TTILLILLLELIELLLLILLL ESS LS SES SE) 


PR RE EE TE TE TT TILL ES LILLI LISE SLSEEEE. ESS.) 


‘x Cette routine renvoit le numéro de la zone is 
‘ x correspondant aux coordonnées px% et py%. Si aucune zone ; 
‘ * ne correspond aux coordonnées, elle renvoit 0. # 


RH RENE UM DEEE RE RH RER AAC 


FUNCTION cherche zone (px*%,py#) 
LOCAL i% 

LOCAL num zone 

LOCAL x1%,y1%,x2%, y2% 


num_zone#=0 

L 

FOR i%=1 TO nb zones* 
x1%=zone%(1%,1) 
yl%=zone%(i%,2) 


{ LECTURE x1 ZONE i% 
| LECTURE y1 ZONE i& 
x2%=zone%(1%,3) 1! LECTURE x2 ZONE i% 
y2%=zone%(i%,4) ! LECTURE y2 ZONE i% 
IF @tst zone(px%,py#,x1%,y1%,x2%,y2%) 1 TEST ZONE i% 
num _zone#=i# 
ENDIF 
NEXT i% 


RETURN num zone 
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ENDFUNC 


———_—_——————…————— 


ROROR RENE RH CHE ERA AC CRC ARR  RROE 


* ATTENTE SELECTION FONCTION EDITEUR, * 


RH HD RCR ORNE AE D RH HER IE 


PR EN NET PET ELITE TITI IST ILESLLLILIS LISE. SE LES); 


* Cette routine attend que l'utilisateur presse sur une  * 


* zone de clic correspondant a une fonction de l'éditeur. * 
DROITE DHEA DHEA OR OK OR ICRA 


‘x 1 : Sortie du programme * 
1 x 2 : Clic zone passage image inférieure * 
x 3 : Clic zone passage image supérieure ki 
1x 4: Clic zone sauvegarde images de 
1 x 65: Clic zone lecture images x 
Ux 6 : Clic zone décrémentation élément courant y 
‘x 7 : Clic-zone incréméntation élément courant # 
14 8 : Clic dans l'image. clic x# et clic _y# contiennent \l 


1x position clic ë 
AAA DHEA DER DER DHEA RE A RCA RER 
FUNCTION att zone clic 

LOCAL zone clic# 

REPEAT 

@att clic(clic x%,clic y#) | ATTENTE CLIC SOURIS 

“zone clic#=@cherche zone(clic x%,clic_y#) | TEST CLIC ZONE 

UNTIL zone clic#<>0 1 ATT CLIC ZONE 
RETURN zone clic# ! RENVOI NUMERO ZONE DE CLIC 
ENDFUNC 





DETTE TT TTL LLLILLLLSS EE ETC LLES SELS SE: 


# FONCTION PRINCIPALE DE L'EDITEUR * 
IMETTETT IS LI LILLLELESESELLS SELS ESS LS SES; 
PROCEDURE edit 

LOCAL zone clic 


sortie#=0 
DO 
zone clic*-@att zone clic ! ATTENTE D'UN ORDRE 
@exec fonction(zone clic)! EXECUTION DE LA FONCTION 
EXIT IF sortie#=1 _{ TEST SI CONDITION DE SORTIE =1 
LOOP 
RETURN 


L CONDITION DE SORTIE = 0 





OR RRR AR ARR RRRRRRRARA OR 


! k PROGRAMME PRINCIPAL * 


LORRRRAREERRRLRRERRARÉERIRERE 


PROCEDURE main 


posx0%=16 ! POSITION X DE L'IMAGE 

posy0%=3 ! POSITION YŸ DE L'IMAGE 

num_image#=1 { INIT NUMERO IMAGE 

element courant#=1 ! INIT NUMERO ELEMENT COURANT 

@init clic {| INITIALISATION DES ZONES DE CLIC 
! 


@init images 1 INITIALISATION IMAGES DE DEBUT 
@load elements("ELEMENTS.ELE") ! CHARGEMENT ELEMENTS 


Gaff edit 1 AFFICHAGE DE L'ECRAN D'EDITION 
SHOWM ! AFFICHAGE SOURIS 

@edit ! PROCEDURE D'EDITION 

RETURN ; 


0 RH DHEA EEE RE 
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ne x 


t- 


re. 


+ 


A * 


! * AFFICHAGE DES IMAGES CONSTRUITES * 
LE * 


OR RR RIRE HR RRNRE RM RRRRR ARR RE RIRRARERE 
LORRRRRRRRRRRÉRMARARRAARARA AR 


" * programme AFF IMGS  * 


VOKAAKAKAKAANAKKRREEERERERARR 


+ 


D ORARKKKERRERRRRRR RE RRRRREHRARARARARARARAREIE 


! * (C) Patrick Leclercq & ATARI MAGAZINE * 


LOKKRKARKRRARREAR REA AR RAR AA RUNUAARRANR AREA É 


RESERVE 50000 


OPTION BASE 1 
U 

DIM images|(10,18,10) ! TABLEAU POUR LES IMAGES 

DIM element$ (256) ! TABLEAU POUR LES ELEMENTS 
nb_elements%=0 ! NOMBRE ELEMENTS EN MEMOIRE 

ecran travai1%=MALLOC(32000) ! 32000 OCTETS POUR ECRAN TRAVAIL 
Emain |! APPEL ROUTINE PRINCIPALE 

VOID MFREE(ecran travail%) ! LIBERATION RAM ECRAN TRAVAIL 
END ! FIN DU PROGRAMME 


| RESERVATION MEMOIRE POUR LE BASIC 


! LES INDICES DE TABLEAU COMMENCENT A 1 


L 
IMPOTS TILL ILLSLSLILLÉS EL LLLILIILIIILLLIILÉSS SES SE SL) 
"x DEFINITION DE L'ECRAN DE TRAVAIL DU SYSTEME * 
LOKAKRÉRARERERRÉRERRÉERRÉRRARRRRARERARRLRERERRRRREREE 
PROCEDURE def_ecr_log(ecran logique“) 

VOID XBIOS(5,L:ecran logique#,L:-1,-1) 
RETURN 


' 
LOKAKERKKKRARERRRERRRERRRRRARRRRRMRR RU 
* x LECTURE D'UN TABLEAU D'OCTETS, * 
D OKAKKERERRRRERRÉRRRRRÉRRAR ARR ÉRUARAAK 
PROCEDURE load _tableau(nom$,VAR tab|()) 
LOCAL adr data 
adr data%=LONG{ARRPTR(tab| ())} 
BLOAD nom$,adr data“ 
RETURN 


U 

' 
LORRRRKRRRRRRRAE RÉ RARÉRRAAUÉRURRR MAR RAARR 
!* LECTURE DES ELEMENTS GRAPHIQUES * 
D ORRRRRARÉRRRRRRRRRAERARAALLAREARARAAEX 
PROCEDURE load elements (nom$) 

LOCAL i% 

LOCAL pal$ 


OPEN “i",#1,nom$ OUVERTURE DU FICHIER 

pal$=SPACES (32) 

BGET #1, VARPTR(pal$), 32 

VOID XB10S(6,L:VARPTR(pal$)) 

nb_elements%=INP (#1) 

FOR i%=1 TO nb elements 
element$(i%)=SPACES (134) 
BGET #1, VARPTR(element$(i%));134 ! 


LECTURE DE LA PALETTE 
DECLARATION PALETTE 
LECTURE NOMBRE ELEMENTS 
DEBUT BOUCLE LECTURE 
RESERVATION MEMOIRE 
LECTURE ELEMENT i* 


nn M = vu un 


NEXT i% FIN BOUCLE LECTURE 
CLOSE #1 FERMETURE DU FICHIER 
RETURN 


LORRRKARRRRRRRRRRRRRARRRRARRRRARAAARERERE 
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! * AFFICHAGE D'UN ELEMENT DE L'IMAGE * 


CRIME RER RE ON DAC ED RARE RER RE AR 


PTT TITT I LILI ELLLLLIS ESS RSS SSL S Sr) |); ));)),;;;:;)).;:)) 


* jmage* : Numéro de l'image à afficher * 
* colonne : Numéro de la colonne de l'élément (1 à 18) * 
! # Jigne*  : Numéro de la ligne de l'élément (1 à 10) 
D HRORORR R AR RO EN RARE DEA RER AR AR ARR ARR ER ARR RARE 
PROCEDURE aff_element (image*, colonne“, ligne“) 

LOCAL px%,pÿ% 

LOCAL num element 


! LECTURE NUM ELEMENT 

num element#=images |(image#, colonne#, ligne“) 
! CALCUL POS X ELEMENT 
px%=(colonne#-1)*16+posx0% 

! CALCUL POS Y ELEMENT 
py#=(1igne-1)*16+posy0% 

! AFFICHACHE ELEMENT 

PUT px%,py#,element$ (num element) 
RETURN 


! 
1 
LOHKKEKERAEXRRRRARERRAMERERHR 


* AFFICHAGE D'UNE IMAGE * 


RRRRORORRO URI OR HE AR OR TR ARE 


HR H HRK AOROR ACHAT DEATH RO RER AA RAR AR ARE AAA 


complétement terminée, le programme recopie l'écran de * 


travail sur l'écran physique grâce à la fonction Bmove. * 
! * Cette méthode permet d'obtenir un affichage ultra-rapide* 
* plus agréable à l'oeil. FA AN 
PTT IST TITI IST TTILL SIA LLILLILS SELS iS LS SSI Si): ))! 
PROCEDURE aff_image(num image“) 

LOCAL ix%,1y% 


‘ * L'affichage ne se fait pas sur l'écran physique (1'écran* 
! * l'écran visible), mais sur un autre écran situé en * 
! * mémoire (ecran travail%). Une fois l'affichage * 
* 
* 


@def_ecr lag(ecran travail%)! ECRAN TRAVAIL = ECRAN LOGIQUE 
CLS ! EFFACEMENT DE L'ECRAN LOGIQUE 
FOR iy#=1 T0 10 

FOR ix%=1 TO 18 

Gaff_element(num image“, ix#,1y%)! AFFICHAGE D'UN ELEMENT 

NEXT ix% 
NEXT iy 
@def_ecr log(XB10S(2)) | ECRAN PHYSIQUE = ECRAN LOGIQUE 
BMOVE ecran _travail#,XBI0S(2),32000 } AFF ECRAN DE TRAVAIL 
RETURN 


1 OAAKKRAAAAARARRARERERERERE 


 X PROGRAMME PRINCIPAL * 


LOKAKKKRKREARERRERRRRERRRRRR 


PROCEDURE main 


LOCAL 1% 
posx0%=16 ! INIT POS X IMAGE 
posy0%=3 ! INIT POSI Y IMAGE 


@load_elements("ELEMENTS.ELE") | CHARGEMENT ELEMENTS 
@load tableau("IMAGES. IMG", images |()) ! CHARGE CODAGE IMAGES 
FOR i%=1 TO 10 
@aff_image(i#) 
VOID INP(2) 
NEXT i% 
RETURN 


! AFFICHAGE IMAGE 1% 
| ATTENTE CLAVIER 
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GRAPHISME EN GFA BASIC 


FABRICATION 
PAR ASSEMBLA 






Un légo informatique 


Voici une technique permettant de dessiner des images à partir de 
sprites qui est beaucoup utilisée par les développeurs de jeux 
vidéo pour fabriquer des images avec peu de place mémoire. 


Qu'est-ce qu'un sprite ? 


Un sprite est une image pouvant s'afficher en superposition sur un 
fond graphique quelconque. Contrairement à une image rectangulai- 
re affichée avec l’instruction graphique PUT, un sprite peut avoir 
n'importe quelle forme. 

Les sprites peuvent être utilisés pour réaliser des animations divers 
(monstres de jeux vidéo, vaisseaux spatiaux, lettres se déplaçant sur 
l'écran, etc.) Ils peuvent aussi être utilisés pour dessiner des images à 
partir d'éléments graphiques de base. 


Affichage d’un sprite 


Le GFA Basic dispose d’une instruction SPRITE, mais celle-ci est telle- 
ment peu performante qu’elle ne présente aucun intérêt pour nous. 
Elle ne peut afficher que des sprites dessinés en deux couleurs et ne 
pouvant faire plus de 16x16 pixels. Pour afficher un sprite en 16 cou- 
leurs et de dimensions quelconque, il faut utiliser les opérateurs gra- 
phiques logiques. 

Un sprite est constitué de deux images: la forme et le masque. La 
forme contient le dessin du sprite réalisé sur un fond de couleur 0. 
Le masque est un dessin en couleur O réalisé sur un fond de cou- 
leur 15. Les pixels en couleur 0 du masque correspondent aux pixels 
affichables de la forme. Les pixels en couleur 15 du masque corres- 
pondent aux pixels non affichables de la forme. 

Le masque doit être affiché avant la forme. Le masque est affiché 
avec l'opérateur graphique logique AND et la forme avec l'opérateur 
graphique logique OR. 

L'instruction PUT peut afficher une image avec un opérateur gra- 
phique logique. Le type de l'opération logique doit être précisé après 
la variable alphanumérique (1 pour opérateur AND et 7 pour opéra- 
teur OR). 


! Opérateur AND 
| Opérateur OR 


PUT px,py,masque$, 1 
PUT px,py, formef, 7 


Un article présentant les opérateurs graphiques logiques et quelques 
exemples d'utilisations dans ce numéro. 


Génération d’un sprite 


Pour avoir un sprite, il faut dessiner le masque et la forme. Le dessin 
du masque est une opération délicate. C’est souvent la hantise des 
graphistes. On peut simplifier les opérations en générant le masque 
et la forme à partir d’une seule image. Cette image doit être dessinée 
sur un fond de couleur 15. On dit alors que la couleur 15 est une 
couleur transparente, puisque les pixels en couleur 15 du sprite ne se- 
ront pas affichés sur l’écran. Puisque la couleur 15 n’est pas affichée 
sur l'écran, les sprites ne sont pas dessinés en 16 couleurs, mais en 15 
(de la couleur 0 à la couleur 14). 


Table des couleurs VDI 


Avant d'étudier la transformation d’une image en masque et sprite, il 
faut étudier la manière dont le GFA Basic gère les numéros de cou- 
leurs. Les fonctions graphiques du GFA Basic n’utilisent pas le coda- 
ge normal des couleurs, mais le codage couleurs des fonctions gra- 
phiques VDI (implantés dans les ROMS du ST). 

Par exemple, le numéro de couleur VDI correspond à la couleur 15. 
Lorsqu’une fonction graphique du GÆA Basic dessine un pixel en 
couleur 1, elle écrit dans la mémoire vidéo la valeur 15 et non la va- 


leur 1. 

FES sm ue OR  eEl + D ÉREREAAÈEE LÉ Pe EE + 
| Numéro | Numéro | | Numéro | Numéro | 
| Couleur | véritable | | couleur | véritable | 
| GEM/VDI | couleur | | GEM/VDI | couleur 
nm He + mm mm + 
428 | 0 RAR RC AT 7 | 
(AÈSE [515 EEE CES) 8 | 
|.:2 | 1 fee RFA 9 | 
RAS) RE 2 ISF | 10 | 
| 4 | 4 | RE 2 | 12 | 
JR 6 LE RSA EE 
l56 | 3 RIRE | 11 | 
oder: | 5 Eee PRE | 13 | 
nn eut + + tem 47 
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Le codage de couleur VDI n’est pas utilisé par tous les programmes 
ST. Les logiciels de dessin graphiques (Degas Elite par exemple) utili- 
sent les vrais numéros de couleurs. Les opérateurs graphiques lo- 
giques qui agissent sur les couleurs au niveau codage binaire ont be- 
soin des vrais numéros de couleurs. Pour obtenir la couleur 15 dans 
la mémoire écran, il faut utiliser la couleur 1 en GFA Basic. 


Fabrication d'une forme de sprite 


L'image de base du sprite est le dessin du sprite réalisé sur un fond de 
couleur 15. La forme est le dessin du sprite réalisé sur un fond de 
couleur 0. Pour générer une forme à partir d’une image de base, il 
faut changer tous les pixels de couleur 15 en couleur 0. Pour le GFA 
Basic, en tenant compte du transcodage de couleur, il faut convertir 
tous les pixels de couleur 1 en couleur 0. 

La procédure @gen_forme fabrique une forme à partir d’une image 
de base. L'image de base est située à la position (px%,py#). Elle me- 
sure tx% pixels de large et ty% pixels de haut. 


LORKREREERRRRRRARERRE RAA AR RARRK 


! x FABRICATION FORME SPRITE * 
LOHKKKERRERAAKEERERERERRARERRRERE 
PROCEDURE gen_forme(px%,py%, tx%, ty) 
LOCAL xpos%,ypos* 
FOR ypos%=py* TO py#+ty#-1l 
FOR xpos%=px# TO px#+tx%-1 
IF POINT(xpos%,ypos%)=1 


COLOR 0 
PLOT xpos#,ypos*# 
ENDIF 


NEXT xpos*% 
NEXT ypos* 
RETURN v 


Fabrication d'un masque de sprite 


L'image de base du sprite est le dessin du sprite réalisé sur un fond de 
couleur 15. Le masque est un dessin en couleur O réalisé sur un fond 
de couleur 15. Pour générer un masque à partir d’une image de base, 
il faut changer tous les pixels de couleur autre que 15 en couleur 0. 
En tenant compte du codage couleur du GFA Basic, il faut convertir 
tous les pixels de couleur autre que 1 en pixels de couleur 0. 

La procédure @gen masque fabrique un masque de sprite à partir 
d’une image de base située à la position (px, py#). Elle mesure px 
pixels de large et py% pixels de haut. 


LOKAKKKEREERERREERERERRARAREEREEX 


! * FABRICATION MASQUE SPRITE * 

LOHXXRRRRÉRERERKERÉREREREXEREERREREE 

PROCEDURE gen masque(px%,py%,tx%, ty#) 
LOCAL xpos#, ypos# 


FOR ypos%=py% TO py<+ty<-1 
FOR xpos%=px% TO pxettx#-1 
IF POINT(xpos%, ypos)<>1 
COLOR 0 


PLOT xpos%,ypos# 
ENDIF 
NEXT xpos# 
NEXT ypos*% 
RETURN 


Le programme GENSPRIT 


Le programme GENSPRIT fabrique des sprites (masques et formes) 
à partir d’une image Degas Elite et les stocke dans un fichier disque. 
Le contenu de ce fichier peut être utilisé par divers autres pro- 


grammes. 


MPTTITITTET IL I LLILLLLSLELELLS. SES S 


Ar GENERATEUR DE SPRITES hi 


MP TTTTTTII LL ILLLELILLRELSLSS LS.) 


‘ * Programme GENSPRIT.GFA  * 
LOKKKERKEKRREREREREERRRERAR RARE K 
* (C) 1991 Atari Magazine  * 
x (C) 1991 Patrick Leclercq * 
LOREKERARARERRAERERREARERRIRARARE 
RESERVE 50000 

OPTION BASE 1 


DIM sprite$(255,2) 

! sprite$(n%,1) = Masque sprite n% 

! sprite$(n%,2) = Forme sprite n% 

@main « 
END 


1 OXKAKEAXKKERERARAKRERERREREAAER 


! x PROCEDURE PRINCIPALE * 
1 OKKEKAKERRARRARRERERKÉRRERAEAERX 
PROCEDURE main 

@gen sprites 

@sauve sprites ("SPRITES.BIN") 
RETURN 


1 RAR IR ARR RON CR RCA AREA K 
! X CHARGEMENT IMAGE DEGAS ELITE * 
D RRRRRM ER ROMA IOR A ARR R RER ARR E 


MP TTITI III LILILSILILLILESS SES ELLLS ESS)... 


! x Cette procédure stocke la palette * 
! * de couleur de l'image DEGAS dans  * 
! * ]a variable globale palettef. ; 
D ORERKEEKEERERERKRR RARE RR AR ÉÉRARRARRAREEE 
PROCEDURE load degas (nomf$) 
palette$=SPACES (32) 
OPEN "i",#1,nom$ 
SEEK #1,2 ! SAUTER ENTETE 
BGET #1, VARPTR(palette$) ,32 ! CHARGE PALETTE 
VOID XBI0S(6,L:VARPTR(palette$)) ! MODIF PALETTE 
BGET #1,XBI0S (2) ,32000 ! CHARGE IMAGE 
CLOSE #1 ! FERMER FICHIER 


! RESERVE MEM 
! OUVRIR FICHIER 
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RETURN 


D ORKRRRRRR ER RER RAR RAR IR A RAR ARE 


! * FABRICATION MASQUE SPRITE * 
LOKKKRKKARERERARRRARARERERERRARUEE 
PROCEDURE gen masque(px%,py#, tx, ty) 

LOCAL xpos#,ypos% 

L 

FOR ypos%=py% TO py#+ty#-1  ! BOUCLE EN Y 

FOR xpos#=px# TO px%+tx%-1 ! BOUCLE EN X 

IF POINT(xpos%,ypos%)<>1 ! TEST COULEUR <>15 


COLOR 0 ! FIXE COULEUR PIXEL 
PLOT xpos%,ypos# | TRACE PIXEL 
ENDIF 
NEXT xpos# 
NEXT ypos% 


RETURN 
1 


LOKKRERKRRRRR RER RNA ARR RER AR RAA 


! * FABRICATION FORME SPRITE * 
LOKKKKKRRARRÉRERRERRREERERRRÉRRANUE 
PROCEDURE gen forme (px%, py%, tx, ty%) 

LOCAL xpos%, ypos% 

1! 

FOR ypos%=py% TO py#+ty#-1  ! BOUCLE EN Y 

FOR xpos%=px% TO px#+tx#-1 ! BOUCLE EN X 

IF POINT(xpos%,ypos#)=1 ! TEST SI COULEUR 15 


COLOR 0 ! FIXE COULEUR PIXEL 
PLOT xpos%,ypos* ! TRACE PIXEL 
ENDIF 
NEXT xpos*% 
NEXT ypos% 
RETURN 


IMPTTELLILSLSSLLITESESS SES SSL SES 


! * SAISIE D'UN SPRITE SUR L'ECRAN * 
LOKKKKKKKRRKRARERERRERERERRARARREREREARE 
PROCEDURE saisie sprite(n%,px%,py%, tx%, ty#) 
LOCAL image$ 

LOCAL px2%,py2% 

px2%=pxé+tx-1 

py2%=py#+ty#-1 


GET px%,py%,px2%,py2%, imagef ! MEMORISE IMAGE 
@gen_ masque(px%, py%,tx%, ty#) | FABRIC MASQUE 


GET px%,py%,px2%,py2%,sprite$(n%,1) ! SAISIE MASQUE 


PUT px%,py#, image$ 1 RESTAURE IMAGE 
@gen_forme(px%,py%, tx, ty) ! FABRIC FORME 
GET px%,py%,px2%,py2%,sprite$(n%,2) ! SAISIE FORME 
RETURN 


LOKKKKKKERRRARREARERKRAREEEEERAR 


! * GENERATION DES SPRITES * 
1 'OHKKARARKRAKREREERERERRERRRREARE 
PROCEDURE gen sprites 

LOCAL nom image$ 

LOCAL n% 

LOCAL px%,py*% 

LOCAL tx%,ty# 


DO 
READ nom_image$ . } LIRE NOM IMAGE 
EXIT IF nom image$="*FIN" ! TEST SI FIN 
@load degas(nom imagef) | CHARGE IMAGE 
DO 
READ n% ! LIRE NUMERO SPRITE 
EXIT IF n%=-1 | TEST SI FIN SPRITE 
READ px% | LIRE POS X SPRITE 
READ py# { LIRE POS Y SPRITE 
READ tx% | LIRE TX SPRITE 
READ ty# } LIRE TY SPRITE 
INC nb sprites* ! UN SPRITE DE PLUS 
saisie sprite(n%,px%,py#%,tx%, ty) 
LOOP 
LOOP 
RETURN 


DO RRRRRRRORR OR RE ROROR ARR ARR RAR RAR ARR ARR AR RE 


! x SAUVEGARDE DES SPRITES SUR DISQUE * 
LOLXKKKRRRRRRRRARRERERRERRERAERERRRRERRAËE 
PROCEDURE sauve sprites (nom$) 
LOCAL n% 
LOCAL tailles 
LOCAL adr masque 
LOCAL adr_forme 
' 
OPEN "o",#1,nom$ 
BPUT #1,VARPTR(palette$),32  !SAUVER PALETTE 
FOR n%=1 TO 255 
taille%=LEN(sprite$(n%,1)) ITAILLE IMAGE 
IF taille%<>0 IPRESENCE SPRITE ? 
BPUT #1,VARPTR(n%) ,4 ISAUVER NUM SPRITE 
BPUT #1,VARPTR(taille#),4 !SAUVER TAILLE 
adr masque%=VARPTR(sprite$(n%,1))  !ADR MASQUE 
BPUT #1,adr masque#,taille*  !SAUVER MASQUE 
adr_forme%=VARPTR(sprite$(n#,2))  !ADR FORME 
BPUT #1,adr forme#, taille {SAUVER FORME 
ENDIF 
NEXT n% 
: 
n#%=0 é { INDICE FIN DE SPRITE 
BPUT #1,VARPTR(n%),4 !SAUVER INDICE FIN DE SPRITE 
: 
CLOSE #1 IFERMETURE FICHIER 
RETURN 
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1 OHKEKKRAKERERRAREERERKERRÉRERÉEERRAREARAAR 


! # FORMAT DE DEFINITION DES SPRITES * 


\ RAR RAR RAA HART EARERRR HE HERCR 


DATA IMAGE1.PIT 
DATA 1,0,0,32,20 
DATA 2,34,0,21,20 
DATA 3,61,0,9,44 
DATA 4,76,0,72,18 
DATA -1 


DATA IMAGE2.PI1 
DATA 5,158,0,33,41 
DATA 6,201,0,21,27 
DATA 7,232,0,40,47 
DATA -1 


DATA IMAGE3.PII 
DATA 8,277,0,9,10 
DATA 9,292,0,12,17 
DATA -1 


DATA *FIN 


Ce programme peut générer des sprites à partir de plusieurs images 
Degas Elite. Le nom des images est stocké dans les lignes de DATA 
avant la position des sprites. La valeur -1 indique la fin des sprites 
de l’image courante. La chaîne de caractères *FIN indique qu’il n’y a 
plus d'images à charger et donc plus de sprites. 

Les sprites sont: dessinés sur un fond de couleur 15. Ils sont définis 
dans le programme sous la forme d’un numéro, d’une position PX, 
d’une position PY, d’une largeur TX et d’une hauteur TY. Le 
numéro est le numéro de référence du sprite. Les numéros de 
référence n’ont pas besoin de se suivre. Il est possible de définir le 
sprite 12 à la suite du sprite.6. Cette technique permet d’insérer un 
nouveau sprite dans la liste sans être obligé de renuméroter tous les 
sprites suivants. 


Fonctionnement de GENSPRIT 


Les sprites sont stockés dans le tableau sprite$(). Le masque du 
sprite n% est stocké dans la variable sprite$(n%,1) et la forme dans 
la variable sprite$(n%,2). Le tableau sprite$() est déclaré avec 
255 éléments, mais peut être agrandi à volonté. 

La routine @load_degas charge une image Degas Elite sur l'écran. À 
la différence des routines de chargement présentés habituellement 
dans cette rubrique, la palette de couleur de l’image n’est pas stockée 
dans une variable locale, mais dans la variable globale palette$. Le 
contenu de cette variable est utilisée par la procédure @sau- 
ve sprites. 
La procédure @gen_masque(px#, y, tx%, ty%) fabrique un masque 
à partir de l’image située à la position (px%,py%) et de dimensions 
(tx%, ty%). La procédure @gen forme( px%,py%, tx%, ty%) fabrique 


une forme de sprite à partir de l’image située à la position 
(px%,py%) et de dimension (tx%,ty%). 

La procédure @saisie_sprite fabrique le masque et la forme d’un 
sprite et sauve le tout en mémoire. Le dessin du masque modifie li- 
mage originale du sprite, c’est pourquoi @saisie_sprite sauve dans 
images l’image du sprite et la réaffiche après avoir généré le masque. 
La routine @gen sprite supervise la fabrication des sprites. Elle 
charge les images Degas Elite, lit les données des sprites et appelle les 
procédures de fabrications du masque et de la forme. C'est la routine 
la plus importante du programme. 


Sauvegarde des sprites 
dans un fichier disque 


La procédure @sauve_spri tes(nom$) sauve les sprites dans un fi- 
chier disque portant le nom nom$. Le fichier commence par 32 oc- 
tets contenant la palette de couleurs utilisée par les sprites, suivis du 
stockage des sprites. Les sprites sont stockés sous la forme du 
numéro de sprite (4 octets), la taille d’un élément graphique (4 octets 
- taille du masque et de la forme), du masque et de la forme. La fin 
du fichier est signalée par la valeur 0 stockée sur 4 octets. 


BPUT. #1, VARPTR(n#) ,4 
BPUT #1,VARPTR(taille%) ,4 


Les variables n% et taïlle% sont sauvées sous la forme d’une zone 
mémoire de 4 octets car elles occupent 4.octets en mémoire. La fonc- 
tion VARPTR(var) fournis l'adresse de la variable var (quelque soit le 
type de variable). ’ 


Amélioration de GENSPRIT 


Il est possible de stocker les coordonnées des sprites dans un fichier 
texte et de modifier GENSPRIT pour qu’il extraie les informations 
dont il a besoin à partir de ce fichier. 

Cela évite de modifier le programme pour générer un nouveau fi- 
chier de sprites. Cela permet aussi d’avoir une version compilée de 
GENSPRIT ne prenant que peu de place disque et s’exécutant plus ra- 
pidement que la version interprété. Le fichier texte pourrait ressem- 
bler à ceci: 


5 KKKEKKKEEEEERRRERERRRREX 


; * DEFINITION SPRITES * 
: KKKKEKRERRRRRARERERARAËE 
IMAGE1.PI1 

10 0 32 20 

2 34 0 21 20 

3 61 0 9 44 

4 76 0 72 18 

IMAGE2.PI1 

5 158 0 33 41 

6 201 O 21 27 

7 232 0 40 47 

IMAGE3.PI1 

8 277 0 9 10 

9 292 O 12 17 

*FIN 
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Vous pouvez aussi ajoutez à GENSPRIT la possibilité de sauver des 
sprites dans un fichier qui en contient déja, évitant ainsi de redessi- 
ner des sprites déja faits. 

Il est possible de stocker le numéro et le nombre d’octets d’un sprite 
dans une variable de type entier 16 bits (symbole 8). Cela représente 
une économie de 4 octets par sprites. Mais il faut faire attention à ne 
pas mélanger les symboles % et & dans le corps du programme. 


BPUT n&,VARPTR(n&) ,2 
BPUT taille&,VARPTR(tailleg) ,2 


Si le nombre de sprites ne risque pas de dépasser 255, il est même 
possible de stocker le numéro de sprite dans une variable du type by- 
te (symbole |). Cette variable n’occupe qu’un octet. La sauvegarde 
de cet octet peut se faire avec l’instruction BPUT, ou avec l’instruc- 
tion OUT. 


BPUT n|,VARPTR(n|),1 
OUT #1,n| 


Utiliser des variables de différents types en GFA Basic est risqué, car 
il est facile de changer un symbole & en %, ou | en %, voire même 
d’oublier complètement le symbole de type. Ce genre d’erreur est 
toujours très difficile à repérer. Pour éviter cela, il est préférable d’u- 
tiliser un type unique de variable et de s’y tenir. Si l’utilisation d’une 
variable particulière vous permet d'optimiser votre programme (gain 
de place mémoire ou de vitesse d'exécution), il faut mettre de nom- 
breux commentaires dans votre programme, de manière à ne pas ou- 
blier que cette variable est différente des autres. 


Fabrication d'une image 
par assemblage de sprites 


Le programme DRAWIMG fabrique des images en affichant les uns par 
dessus les autres plusieurs sprites. Ces sprites sont chargés à partir 
d’un fichier disque généré par le programme GENSPRIT. 


! KKKKKEKKERRERRERERÉERRRERRRARARR 


jus CONSTRUCTION D'IMAGES L: 
RE À PARTIR DE SPRITES à 


LOKXKRRKAAKARARERKERÉERRRRERRAREARERE 


" * Programme DRAWIMG.GFA À, 
PTS TSIITILIILISILII IS IL IS..S.. 
‘ X (C) 1991 Atari Magazine  * 
" * (C) 1991 Patrick Leclerc * 
LOREHRAAAAARARARARRERAARRARAREAREËE 
RESERVE 100000 

OPTION BASE 1 


lOKKKKAKKÉAKKKARREARERREREERREREREEE 


! *  MEMORISATION DES SPRITES * 
V'XÉKAKAKKAKARAAKARAKEREERREREREARE 
DIM sprite$ (200,2) 

! sprite$(n%,1l) = Masque sprite n% 


! sprite$(n%,2) = Forme sprite n% 
1 


L'OAKKAKKAKAARRRRERERRARKRERERARAER 


! # MEMORISATION DES IMAGES  * 
LOAXKKAKEKKKKREREREXEAARKEARERRERÉX 

DIM image%(50,40,3) 

DIM taille _image*(50) 

! image%(img%,n%,1) = Num sprite n%  - image img% 


 image%(img%,n%,2) = Pos X sprite n% - image img 
! image%(img%,n%,3) = Pos YŸ sprite n% - image img% 
Cmain 

END 


D ORKKKKRAKRARARKERRERREAREXEAX 


! * PROCEDURE PRINCIPALE * 
LORARKARARRAKRAARRRRRRRRARAREEX 
PROCEDURE main 
@charge_sprites ("SPRITES.BIN") 
Ginit_images 
@demo_images 
RETURN 


L'OKXKKAKEKREREKRERERERRRERERERRRARARARRARERE 


! *  DEMONSTRATION CONSTRUCTION IMAGES  * 
LOKKKREKRERRRERERRÉERERRERRRRARRERRERARRREXX 
PROCEDURE demo images 
CLS 
DO 
LOCATE 1,1 
INPUT "Num image (0 pour fin) ",img% 
EXIT IF img#%=0 
CLS 
PRINT img 
@draw_image (img, 100,100) 
LOOP 
RETURN 


LOKAKKKXKKKKRERRERRERERRERRRRÉAÉ 


! * AFFICHAGE D'UN SPRITE * 

* * DU TABLEAU sprite$()  * 

D OKAKKKKKKKERRRRRRRRERRERRARÉÉ 

! * n% : Numéro sprite # 

! * px : Pos X sprite # 

! * py# : Pos Y sprite x 

D OKKKKKKKKKEAKRKAKKKKKRKKKRRKRRRAÉR 

PROCEDURE aff_sprite(n#,px%,py%) 
PUT px%,py%,sprite$(n%,1),1 | AFFICHAGE MASQUE 
PUT px%,py#,sprite$(n%,2),7 { AFFICHAGE FORME 

RETURN 


= ee me me me oem ee mn meme oc me me me mm — 


1 OKKKAKRKKKKERAAKRERKERRRARARERERERE 


* # AFFICHAGE DE L'IMAGE img. * 
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LORARKAEAERERRRERERERRRRERERERRERÉE ! PPT TETE ETS I ILLESESILONELE SES EE TE) 





! * jmg% : Numéro image æ PROCEDURE init_images 
1 # posx% : Position X affichage * LOCAL num image 
1% posy% : Position Ÿ affichage *, LOCAL nb sprites* 
LOKARRERRRARAREREERRERÉREREERREREE LOCAL n#%,pX%, Py* 
PROCEDURE draw_image(img%,posx%, posy#) : 
LOCAL n% RESTORE def images 
LOCAL sprite* DO 
LOCAL px%,py% READ num image“ 
; È EXIT IF num image*=0 
FOR n%=1 TO taille image%(img%) nb sprites*=0 
sprite#=image*(img%,n%, 1) ! NUMERO SPRITE DO 
px#=image*(img%,n%,2)+posx* ! PX SPRITE READ n% 
py#=image*(img%,n%,3)+posy* ! PY SPRITE EXIT IF n%=-1 
Qaff sprite(sprites,px%,py#) ! AFF SPRITE READ px%,py# 
NEXT n% INC nb sprites* 
RETURN image%(num_image*,nb_sprites*, 1)=n% 
: image*(num image#,nb_sprites*,2)=px* 
RE SR EURE EP RE £ image*(num_image*,nb_sprites*, 3)=py# 
LOKKREKRERRRRRERKRERARRARREREREE LOOP F 
| ‘ * CHARGEMENT DES SPRITES * taille image*(num_image#)=nb_sprites 
… |‘ * APARTIR OU DISQUE  * LOOP 
10 LORKKKRRRARERKERERRARREREREREX RETURN 
Ê ! * Les sprites sont lus à * , 
k ‘* partir du fichier nomÿ * D nnnnmnnnmnennnn nn ense 
A LOKKKRRRRRERERERRRRARAREREREAR PTT TTIT LILI LLILLILLLLELELES SEE 
2 | PROCEDURE charge sprites (nom$) ‘x DEFINITION DES IMAGES * 
a LOCAL pal$ LU OKRRKARAREKRRRRARKERRERARARREX 
# LOCAL n% ‘ DATA num sprite,px,py 
F5 LOCAL taille# * DATA num sprite,px,py 
1 LOCAL adr masque* ! DATA -1 
ï LOCAL adr_forme* def_images: 
& 1 LOKRRRRARARERERRRAIENRE 
| > OPEN "I",#1,nom$ ! OUVERTURE FICHIER ! * PREMIERE IMAGE * 
, LT OKRRREKRRERERÉERERARARÉ 
pal$=SPACES (32) | RESERVE 32 OCTETS DATA 1 
BGET #1,VARPTR(pal$) ,32 ! CHARGE PALETTE DATA 1,10,10 
VOID XBI0S(6,L:VARPTR(pal$)) ! CHANGE PALETTE DATA 2,20,20 
À DATA 3,40,40 
DO DATA -1 
BGET #1,VARPTR(n%) ,4 | CHARGE NUM SPRITE ; 
EXIT IF n%=0 | TEST FIN FICHIER INA RSS ARENA REX 
BGET #1,VARPTR(taille%),4  ! CHARGE TAILLE SPRITE ! * SECONDE IMAGE * 
spritef(n%,1)=SPACE$(taillex) | RESERVE MEM MASQUE DEF AE RER RSS us 
sprite$(n#,2)=SPACE$(taille#) ! RESERVE MEM FORME DATA 2 
adr masque%=VARPTR(spritef$(n%,1)) ! ADR MASQUE DATA 4,10,10 
adr_forme*=VARPTR(spritef (n%,2)) ! ADR FORME DATA 5,15,15 
BGET #1,adr masque, tai 1 1e% | CHARGE MASQUE DATA 6,30,30 
BGET #1,adr forme#,tailles ! CHARGE FORME DATA -1 
LOOP s 
1: t KRKRRRRR RER RAR RRAREE 
CLOSE #1 k { FERMETURE FICHIER ! * TROISIEME IMAGE * 
RETURN 1 'KXAKKKKKKKAKERARÉRRÉAEREE 
! DATA 3 
RNA ES SERRE CUS DATA 2,0,0 
D RRRR RER RAR RIRE RARE RUE AE I RITÉ DATA 7,3,3 
! * INITIALISATION DES IMAGES * DATA 8,28,37 
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DATA 9,20,20 
DATA -1 


! PASS AIMENT 
* * QUATRIEME IMAGE * 
LV OKAKAKKKKKKRERKERRRREREE 
DATA 4 

DATA 2,0,0 

DATA 7,5,5 

DATA 1,2,2 

DATA -1 


: 
VOKKRKAKKKAKERERRERKREX 


! * FIN DE DONNES * 


TU OKKKKKRARERRERRERERE 


DATA 0 


Chaque image est définie par une série de sprites. Ceux-ci sont 
eux-même définis par un numéro de référence et une position d’affi- 
chage. Ils sont affichés dans l’ordre d’appararition: le premier sprite 
est affiché en premier, suivi du second, etc. La position d’affichage 
est relative au bord de l’image. L'image peut être affichée à n'importe 
quel endroit de l’écran. La valeur -1 signale la fin d’une image. La va- 
leur O signale que la dernière image vient d’être définie. Les numéros 
des sprites sont les numéros de références qui ont été assignés aux 
sprites dans les instructions DATA du programme GENSPRIT. 


Fonctionnement de DRAWIMG 


Les sprites sont stockés dans le programme DRAWIMG de la même ma- 
nière que dans le programme GENSPRIT, c’est-à-dire dans le tableau 
sprite$(). La procédure @charge sprites(nom$) charge les 
sprites du fichier nom$ dans le tableau sprite$(). La valeur 0 est le 
signe de fin de fichier. La taille et le numéro des sprites qui sont sto- 
ckés sous la forme de 4 octets sont lus avec l'instruction BGET. 


PROCEDURE charge_sprites (nom$) 
LOCAL pal$ 
LOCAL n% 
LOCAL tailles 
LOCAL adr masque 
LOCAL adr forme 


OPEN "I",#1,nom$ 


pal$=SPACES (32) 
BGET #1,VARPTR(pal$) ,32 
VOID XBIOS(6,L:VARPTR(pal$)) 


DO 
BGET #1,VARPTR(n#) ,4 
EXIT IF n%=0 
BGET #1,VARPTR(taille#) ,4 
sprite$(n%,1)=SPACE$ (taille) 
sprite$(n%,2)=SPACES (tai11e) 
adr masque%=VARPTR(sprite$ (n%,1)) 
BGET #1,adr masque*,taille# 


adr_forme%=VARPTR(spritef (n%,2)) 
BGET #1,adr forme, taille 
LOOP : 
: 
CLOSE #1 
RETURN 


La procédure ouvre le fichier en lecture, charge les 32 octets de la pa- 
lette de couleur des sprites, puis utilise la fonction système 
XBIOS(6) pour remplacer la palette l’écran par la palette des sprites. 
La procédure @init_images charge la définition des images à partir 
des DATA, Les images sont stockées dans le tableau image#(). Le ta- 
bleau taille .image%(img%) contient le nombre de sprites de l’ima- 
ge img%. La routine @init_images utilise une double boucle 
DO-LO0P La boucle interne s'occupe de lire la position des sprites 
définissant une image. La sortie de la boucle est assurée par une inst- 
ruction EXIT IF lorsque le programme rencontre la valeur -1 signa- 
lant la fin de l’image courante. ; 

La routine @draw_image affiche l’image img à la position posx# et 
posy#. Elle lit les donnés définissant le sprite et utilise la procédure 
@aff sprite qui affiche un sprite à une position quelconque de 
l'écran. Leur position d’affichage sur l’écran est calculée en ajoutant 
la position relative du sprite et sa position d’affichage sur l'écran. 


PROCEDURE draw _image(img%,posx*,posy#) 
LOCAL n% 
LOCAL sprites 
LOCAL px%,py# 


FOR n%=1 TO taille image#(img#) 
sprite*=image(img%,n%, 1) 
px#=imagez(img%,n%,2)+posx* 
py#=images(img%,n%,3)+posy# 
Gaff_sprite(sprite*,px%, py#) 

NEXT n% 

RETURN 


La procédure @demo_ images est une procédure de démonstration 
qui permet de visualiser les images existantes. Elle demande un 
numéro d'image à l’utilisateur et dessine celle-ci. Si lutilisateur 
frappe sur la touche [0], le programme s’arrête. Cette procédure n’a 
pas grande importance. Ce n’est qu’un banc d'essai vous permettant 
de tester le générateur d'image et l’utilisation de la fonction 
@draw_image. 


Amélioration de DRAWIMG 


Le programme DRAWIMG peut être grandement amélioré au niveau de 
la création des images. Au lieu d'écrire des numéros de sprites dans 
des DATA, il serait préférable d’avoir un éditeur permettant de sélec- 
tionner et de positionner les sprites à la souris. L'auteur de ces lignes 
a réalisé il y a quelques années un programme de ce type en TURBO 
C. C’est parfaitement réalisable en GFA Basic en moins de 1000 
lignes. É 
Les informations définissant les sprites peuvent être stockées dans-un 
fichier disque. Cela permet d'économiser de la place mémoire si les 
images sont dessinées avec de nombreux sprites. 
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Etant donné que les positions des sprites sont définis de manière re- 
lative à la position d'affichage de l’image, les variables stockant ces 
positions d’affichages peuvent être du type byte (symbole |). Cela 
permet d'économiser 3 octets par variables, donc 6 octets par sprites. 
Le seul inconvénient de cette technique, c’est qu’un sprite ne peut 
être affiché à plus de 255 pixels du bord haut gauche de l’image. 
C'est un défaut plutôt mineur! 

Si le nombre de sprites est inférieur à 255, on peut aussi mémoriser 
les numéros de sprites dans des variables de type |. Cela permet 
d'économiser encore 3 octets par sprite. La taille mémoire nécessaire 
pour mémoriser un sprite est de 3 octets, alors que DRAWIMG ,utili- 
se 12 octets pour faire la même chose. Si le nombre de sprites est 
compris entre 255 et 65535, on peut utiliser une variable de type & 
(2 octets) pour mémoriser un numéro de sprite. La place mémoire 
prise par la définition d’un sprite est alors de 4 octets. 

Le codage des images peut être mémorisé dans une zone binaire et 
non dans un tableau. Cela permet d'utiliser juste la quantité de 
mémoire nécessaire à une image. La plupart des programmeurs de 
jeux utilisent des données stockées directement en mémoire et non 
dans des tableaux numériques. 

Le programme DRAWIMG stocke un fichier graphique dans un seul ta- 
bleau alphanumérique, mais rien ne vous empêche de charger plu- 
sieurs blocs de sprites dans différents tableaux. Vous pourrez avoir 
par exemple un tableau contenant des éléments de visages, un ta- 
bleau contenant des éléments de voitures, et un tableau contenant 
des éléments d'animaux. 


Performances 


Cette technique permet de dessiner des images avec très peu de 
mémoire. 

Etant donné que le codage d’une image ne contient que des 
références de sprites, la taille de l’image n’a pas de rapport avec son 
occupation mémoire. Une image de grande dimension dessinée avec 
peu de sprites peut n’occuper que quelques dizaines d'octets, alors 
qu’une petite image dessinée avec beaucoup de sprites peut occuper 
une centaine d’octets. 

Si l’on ne considère pas la taille mémoire prise par les éléments gra- 
phiques de base, il est possible de coder un nombre gigantesque 
d'images sur une disquette ou en mémoire. En considérant qu’une 
image moyenne est fabriqué avec 30 sprites (ce qui est déja beau- 
coup), le codage de cette image occupe 121 octets (4x30 octets pour 
les sprites et 1 octet pour le nombre de sprites). On peut mettre 
6093 images de 30 sprites sur une disquette double face. Cet exemple 
est théorique, car les images ne seront pas toutes dessinés avec 30 
éléments, mais il met en évidence le gain de mémoire permis par cet- 
te technique. 


Applications 


La technique consistant à dessiner des images par assemblage (ou col- 
lage) de sprites peut être utilisés dans de nombreux cas de figures. 
Voici quelques exemples: dessin d’animaux fantastiques, fabrication 
de visages, habillements de personnages, dessin de ruelles médiévales. 
Vous pouvez vous amuser à dessiner des animaux fantastiques à par- 
tir d'éléments simples (cornes, faces bestiales, têtes de démons, corps 
hideux, jambes de cheval, etc.) Un éditeur de créatures fantastiques 
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fonctionnant en haute résolution et réalisé en 3 jours a eu un grand 
succès pendant la fête d’une école primaire. 

On peut dessiner des visages en prenant des formes de visages et en y 
rajoutant des éléments de bases. Ces éléments sont: cheveux, yeux, 
nez, bouches, mentons. On peut aussi y rajouter des éléments divers 
comme des bandeaux, des lunettes, des monocles, quelques cicat- 
rices, etc. Avec une cinquantaine d'éléments graphiques occupant en- 
viron 60 Ko, on peut créer plusieurs centaines de visages différents. 
On jouant sur certains éléments comme les yeux ou la bouche, il est 
même possible de faire varier l'expression d’un visage (amusement, 
colère, peur, etc..). 

Avec une quarantaine de sprites représentant des murs, des toits, des 
cheminées, des portes et des fenêtre, il est possible de dessiner un 
grand nombre de maisons différentes, et même des rues. 

Pour la petite histoire, tous les éléments graphiques du jeu de rôle 
DONJON MASTER (murs, créatures, portes, écritures sur les murs, 
etc.) sont dessinés entièrement avec des sprites. 


Pour finir 


Les programmes de cet article sont disponibles en téléchargement 
sur le 3615 ATARI. Ils sont livrés dans un fichier binaire compacté 
autodécompactable et ne coûtent que quelques francs de télécharge- 
ment. 


TELECHARGEZ 
DES CENTAINES 
DE LOGICIELS 


SUR LE 


3615 
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GRPHISME EN GFA BASIC 


INSTRUCTION 
Copie rapide 






L'instruction RC COPY est une instruction graphique du GFA Basic 
3.0 permettant de réaliser des affichages rapides et des effets 
spéciaux graphiques. La voilà disséquée pour vous. 


Copie de blocs 


RC_COPY permet de copier des bloes de pixels d’un écran à un autre. 
Les écrans d’origine et de destination peuvent être les mêmes. Elle 
fonctionne dans les 3 résolutions graphiques du ST et est environ 7 
fois plus rapide sur une machine équipée d’un blitter que sur un STF 
de base. Sa syntaxe est la suivante: 


RC_COPY ecranl, xl, yl, tx, ty TO ecran2, X2, y2 


ecranl:Adresse de l'écran d'origine 
xl:Position X du bloc de pixel 
yl:Position Y du bloc de pixel 
tx:Largeur du bloc de pixel 

ty:Hauteur du bloc de pixel 
ecran2:Adresse de l'écran de destination 
x2:Position X de destination 

y2:Position Ÿ de destination 


Création d'un écran en mémoire 


Un écran est une zone mémoire de 32000 octets. Cette zone mémoi- 
re peut être créée en déclarant une variable alphanumérique de 32000 
octets. 


ecran$=SPACE$ (32000) adr ecr%=VARPTR(ecran$) 


L'adresse des variables alphanumériques peut varier à la suite d’une 
restructuration mémoire (garbage collection). Il faut donc recal- 
culer fréquemment l'adresse du tampon mémoire. Pour effacer 
l'écran, il suffira de mettre une chaîne vide dans ecranf, ou d'effacer 
la variable ecran$ avec l’instruction ERASE 

On peut aussi réserver de la mémoire grâce à l'instruction MALLOC. 
La zone mémoire ainsi déclarée sera fixe. En général, les allocations 
de mémoire sont réalisées au début des programmes. L'instruction 
MFREE permet de désallouer une zone mémoire créée par MALLOC. 


adr ecr%=MALLOC(32000) VOID MFREE(adr_ecr%) 


Remarque: l'instruction MALLOC renvoie la valeur O si la réservation 
mémoire n’a pu avoir lieu (manque de mémoire disponible). 


Copie d'écran 


On peut copier un écran sur un autre grâce à BMOVE, une instruction 
de copie de mémoire. L'exemple suivant copie 32 000 octets de 
l'adresse ecran1% à l'adresse ecran2%. Les 32 000 octets se trouvant 
l'adresse ecran2% sont effacés par l’opération de copie. 


BMOVE ecranl%, ecran2%, 32000 


L'adresse de l'écran physique (celui qui est affiché à l’écran) peut être 
determinée avec la fonction XBI0S(2). On peut donc copier le con- 
tenu de l'écran physique en mémoire et vice-versa. 


BMOVE XBIOS(2), adr ecr%, 32000 BMOVE adr ecr%, 
XBIOS(2), 32000 


Fabrication d'un écran aléatoire 


Pour tester des routines graphiques, il faut avoir une image de test. 
Celle-ci peut être chargée à partir d’un disque, ou fabriquée sur pla- 
ce. Nous vous proposont ici une petite routine fabriquant une image 


. aléatoire. Elle s’adapte automatiquement à la résolution de l’écran, 


grâce à la fonction XBI0S(4) qui indique la résolution courante du 
système. 


PROCEDURE gen ecran 
LOCAL 1%,c$,nb car* 
SELECT XBI0S(4) 
CASE 0 

nb_car%=40 
CASE 1 

nb_car%=80 
CASE 2 

nb_car%=80 


ATARI woue[]T] BEST OF GFA BASIC 











ENDSELECT$ 
FOR 1%=1 TO 24 
c$=CHR$ (RANDOM(26)+65) 
PRINT STRING$(nb_car%, c$); 
NEXT 1% 
Cc$=CHR$ (RANDOM (26) +65) 
PRINT STRING$(nb car%-1,c$); 
RETURN 


La procédure GEN_ECRAN affiche 25 lignes de caractères. Le dernier 
caractère de la dernière ligne n’est pas affiché afin de ne pas déclen- 
cher un scrolling d’écran qui effacerait la première ligne. 


Affichage d'un morceau d'écran 


Le programme suivant charge une image aléatoire dans un écran vir- 
tuel à l'adresse adr_ecr%. Un morceau de cette image est ensuite re- 
copié sur l’écran physique avec l'instruction RC_COPY. 


RESERVE 100000 

adr_ecr%=MALLOC(32000) 

@GEN_ECRAN 

BMOVE XBIOS(2), adr ecr%, 32000 

CLS 

VOID INP(2) 

RC_COPY adr ecr%,0,0,100,100 TO XBI0S(2),0,0 
VOID INP(2) 

VOID MFREE(adr ecr%) 

END 


"écran virtuel est créé avec l'instruction MALLOC. La mémoire prise 
est libérée en fin de programme par l'instruction MFREE Le program- 
mé fonctionne dans les 3 résolutions. 


Copie de blocs de pixels 
directement sur l'écran 


L'instruction RC_COPY peut être utilisée pour copier des blocs de pi- 
xels directement sur l'écran physique. Ces blocs ne doivent évidem- 
ment pas coïncider. 


RC_COPY XBI0S(2),0,0,32,32 TO XBI0S(2),100,100 


C’est plus rapide et cela prend moins de mémoire que la combinaï- 
son classique des instructions GET. et PUT. 


GET 0,0,31,31, IMG$ PUT 100,100, IMG$ 


Affichage d'une image ligne à ligne 


L'instruction RC COPY permet d'afficher une image ligne à ligne. 
Pour des raisons de simplicité, nous allons commencer par étudier 
l'affichage ligne à ligne uniquement en basse résolution. L'écran est 
divisé en 20 lignes. Etant donné qu’il y a 200 pixels de haut, chaque 
ligne a une hauteur de 10 pixels (200/20=10). Les lignes sont 
numérotées de 1 à 20. 
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PROCEDURE aff_ligne (ligne) 

LOCAL y1% 

yl% = (1igne%-1)*10 

RC_COPY adr ecr%,0,y1%,320,10 TO XBIOS(2),0,y1% 
RETURN 


Pour afficher une image à partir du haut de l'écran, il faut afficher 
les lignes dans un ordre croissant. La procédure AFF_HAUT affiche 
une image à partir du haut. Cet exemple est incomplet. Il manque 
l'initialisation de l'écran virtuel (avec SPACE$ ou MALLOC), et la fabri- 
cation de l’image de test (avec GEN_ECRAN). 


PROCEDURE aff_haut 
FOR 1%=1 TO 20 
@aff ligne (1%) 
PAUSE 2 
NEXT 1% 
RETURN 


Pour afficher une image à partir du bas, il faut afficher les lignes 
dans un ordre décroissant. La procédure AFF_ BAS affiche une image 
à partir du bas de l’écran. 


PROCEDURE aff_bas 
FOR 1%=20 TO 1 STEP -1 
. @aff_ligne(1#) 
PAUSE 2 
NEXT 1% 
RETURN 


L'instruction PAUSE 2 sert à fixer un délai de temporisation entre 
l'affichage des lignes. En augmentant ou en diminuant le paramètre 
de temporisation, vous ferez varier la vitesse d’affichage de l'image. 


Affichage ligne à ligne multi-résolution 


Programmer une routine multi-résolution pose toujours quelques 
problèmes. Il faut déterminer les paramétres qui dépendent de la 
résolution et écrire une routine d’initialisation. 

Dans le cas présent, les paramétres dépendant de la résolution sont la 
largeur d’une ligne (variable x1%), et la hauteur d’une ligne (variable 
y1%). La routine DEF. LIGNE calcule leur valeur en fonction du mode 
graphique. Elle doit impérativement être appelée au début du pro- 
gramme sous peine de mauvais fonctionnement. 


PROCEDURE def ligne 
SELECT XB10S(4) 
CASE 0 

x1%=320 
y1%=10 
CASE 1 
x1%=640 
y1%=10 
CASE 2 
x1%=640 
y1%=20 
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ENDSELECT 
RETURN 


PROCEDURE aff _ligne(ligne“) 
LOCAL py% 


py%=(lignes-1)*y1# 
RC_COPY adr_ecr%,0,py#,x1%,y1% TO XBI0S(2),0,py% 
RETURN 


Les procédures AFF_HAUT, et AFF_BAS du paragraphe précédent fonc- 
tionnent parfaitement avec la nouvelle procédure AFF_LIGNE Il est 
amusant de voir la même routine graphique fonctionner dans les 3 
résolutions du ST. En anticipant un petit peu, on pourrait imaginer 
des routines graphiques fonctionnant dans tous les modes gra- 
phiques ST et TT. 

La plupart des programmes professionnels sur IBM PC et compa- 
tibles utilisent un système graphique similaire à celui que nous ve- 
nons d'étudier. Il existe tellement de cartes graphiques différentes sur 
IBM PC que c’est une obligation pour les programmeurs. 


Affichage d’une ligne sur deux 


On peut obtenir un bel effet graphique en affichant les lignes im- 
paires, puis les lignes paires. L'exemple suivant fait apparaître une 
image à partir du haut, mais le principe fonctionne aussi pour un af- 


fichage à partir du bas. 


PROCEDURE aff_haut2 

FOR 1%=1 TO 19 STEP 2 
@aff ligne (1%) 
PAUSE 2 

NEXT 1% 

FOR 1%= 2 TO 20 STEP 2 
@aff ligne (1%) 
PAUSE 2 

NEXT 1% 

RETURN 


Cette technique d'affichage peut être utilisée avec d’autres écarts de 
ligne. Afficher une ligne sur 4 donne un très bel effet. 


Affichage des lignes à partir des bords de 
l'écran 


Avec cette technique, l’image apparaît à partir du haut et du bas. Les 
lignes lignel% et 1igne2% sont affichés quasi-simultanément par la 
routine. L'instruction PAUSE 1 impose un petit délai d’attente entre 
les différentes étapes d’affichage. 


lignel%=1 

ligne2%=20 

FOR i%= 1 TO 10 
@aff_ligne(lignel#) 
Gaff_ligne(1igne2#) 
PAUSE 1 
INC ligne“ 


DEC ligne2% 
NEXT i% 


En inversant le sens d'affichage des lignes, vous pouvez afficher une 
image à partir du milieu de l'écran. 


lignel%=10 

ligne2%=11 

FOR i%=1 TO 10 
@aff_ligne(ligne1#) 
@aff_ligne(ligne2%) 
PAUSE 1 
DEC lignel#% 
INC ligne2% 

NEXT 1% 


Affichage d'une image 
colonne par colonne 


De la même manière que l’on affiche une image ligne à ligne, on 
peut afficher une image colonne par colonne. Le principe est le 
même, seul le sens d'affichage diffère. 

L'écran est divisé en 20 colonnes. En basse résolution, les colonnes 
ont une largeur de 16 pixels (320/20) et une hauteur de 200 pixels. 
En moyenne résolution, les colonnes ont une largeur de 32 pi- 
xels (640/20) et une hauteur de 200 pixels. En haute résolution, les 
colonnes ont une largeur de 32 pixels (640/20) et une hauteur de 400 
pixels. 


PROCEDURE def _colonne 
SELECT XBI0S(4) 
CASE 0 

xc#=16 
yc#=200 
CASE 1 
xc#=32 
yc#=200 
CASE 2 . 
xc#=32 
yc#=400 
ENDSELECT 
RETURN 


La procédure DEF_COLONNE initialise les variables xc et yc* en 
fonction de la résolution du système. Elle doit être appelée avant d’u- 
tiliser la procédure AFF_COLONNE. Le plus simple est de l'utiliser au 
début du programme. 


PROCEDURE aff_colonne(colonne#) 
LOCAL. px $ 


px%=(colonne#-1)*xc* 
RC_COPY adr_ecr%,px#,0,xc%,yC* TO XB10S(2),px%,0 
RETURN 


La procédure AFF COLONNE affiche la colonne colonne# en tenant 
compte de la résolution. Les colonnes sont numérotées de 1 à 20. En 
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affichant les colonnes dans un ordre croissant, l’image s’affiche à par- 
tir de la gauche. 


PROCEDURE aff_ gauche À 
LOCAL c% 
FOR c%=1 TO 20 
@aff_colonne(c#) 
PAUSE 2 Ü 
NEXT c% 
RETURN 


En affichant les colonnes dans un ordre décroissant à partir de 20, 
l'image s'affiche à partir de la droite de l'écran. 


PROCEDURE aff droite 

LOCAL c% 

FOR c%=20 TO 1 STEP -1 
@aff_colonne (c%) 
PAUSE 2 

NEXT c% 

RETURN 


Affichage d'une colonne sur deux 


De la même manière que l’on peut afficher une ligne sur deux, on 
P 

peut afficher une colonne sur deux. L'exemple suivant affiche les co- 

lonnes impaires, puis les colonnes paires. 


PROCEDURE aff_gauche2 

LOCAL c% 

FOR c#=1 TO 19 STEP 2 
@aff_colonne(c#) 
PAUSE 2 

NEXT c% 

FOR c%=2 TO 20 STEP 2 
@aff_colonne(c#) 
PAUSE 2 

NEXT c% 

RETURN 


Vous pouvez aussi afficher une image colonne par colonne à partir 
des bords ou du centre de l'écran. Inspirez-vous des techniques d’affi- 
chages ligne à ligne. 


Découpage d'une image en petits rectangles 


Au lieu de découper l’écran en lignes et colonnes, on peut le 
découper en petits rectangles. Cela permet de créer de nouveaux ef- 
fets graphiques. Afin de maintenir une compatibilité avec les pro- 
grammes précédents, l'écran est découpé en 20x20 blocs (soit 400 
blocs). 

En basse résolution, un bloc graphique fait 16x10 pixels. En moyen- 
ne résolution, un bloc graphique fait 32x10 pixels. En haute résolu- 
tion, un bloc graphique fait 32x20 pixels. La procédure DEF_BLOC 


initialise les variables xb% et yb% en fonction de la résolution du 
système. Elle doit être exécutée au début des programmes. 









PROCEDURE def_bloc 
SELECT XBI0S(4) 
CASE 0 

xb%=16 
yb%=10 
CASE 1 
xb%=32 
yb%=10 
CASE 2 
xb%=32 
yb%=20 
ENDSELECT 
RETURN 


La procédure AFF_BLOC copie un bloc graphique de l’image stockée à 
l'adresse adr_ecr% sur l'écran physique. Les lignes et les colonnes 
définissant la position des blocs sont numérotées de 1 à 20. 


PROCEDURE aff_bloc(ligne#, col onne%) 

LOCAL px%, py% 

px%=(colonne#-1)*xb% 

py%=(lignes-1}*yb# ; 
RC COPY adr_ecr%,px%,py%,xb%, yb% TO XBIOS(2) ,px%,py# 
RETURN 


La routine AFF BLOC peut être utilisée pour réaliser des affichages so- 
phistiqués comme l'affichage aléatoire, ou l'affichage en diagonale. 


Affichage aléatoire 


L'ordre d'affichage des blocs est déterminé au hasard. Le programme 
doit garder la trace des blocs déjà affichés afin de ne pas afficher 
deux fois le même. Le tableau bloc#() contient la liste des blocs déja 
affichés à l'écran. Au début, les cases de ce tableau contiennent 
toutes 0. Lorsque le programme affiche un bloc sur l'écran, il met la 
valeur 1 dans la case correspondant au bloc affiché, La routine de ti- 
rage aléatoire sait qu’un bloc n’est pas encore affiché si la case équiva- 
lente debloc%() contient la valeur O. 


DIM bloc%(20,20) 
ARRAYFILL bloc%(),0 
FOR i%=1 TO 400 
REPEAT 
c%=RAND (20)+1 
1%=RAND(20)+1 
UNTIL bloc%(1%,c%)=0 
@aff_bloc(1%,c*) 
bloc#(1%,c%)=1 
NEXT 1% 


L'instruction ARRAYFILL bloc#(),0 met la valeur 0 dans toutes les 
cases du tableau bloc%(). L'instruction RAND(n) fournit un nombre 
aléatoire compris entre 0 et n-1. La formule RAND(n)+1 donne donc 
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un nombre aléatoire compris entre 1 et n. Associé à la procédure 
DEF BLOC, ce programme permet de réaliser une routine d’affichage 
aléatoire fonctionnant dans les 3 résolutions du ST. 


Amélioration de l'affichage aléatoire 


Si vous avez exécuté la routine d'affichage aléatoire, vous avez dû re- 
marquer que l'affichage des derniers blocs est un peu lent. Le pro- 
gramme peine un peu pour trouver les 5 ou 6 derniers blocs non af- 
fichés parmi les 400 blocs possibles. Ceci dis, le GFA Basic est telle- 
ment rapide qu’il met moins d’une seconde à trouver le dernier bloc 
(en version interprétée). 

Pour éviter ce petit ralentissement, il faut arrêter le calcul aléatoire 
des blocs avant la fin, et afficher rapidement les derniers blocs res- 
tant. On peut, par exemple, n’afficher que 395 blocs et utiliser une 
routine supplémentaire utilisant le tableau bloc#() pour connaître 
les blocs non affichés. 


nb_blocs#=395 
FOR i%=1 TO nb blocs% 
. ,,AFFICHAGE ALEATOIRE 
NEXT i% 
FOR c%=1 TO 20 
FOR 1%=1 TO 20 
IF bloc#(1%,c%)=0 
@aff bloc(1#%,c#) 
bloc#(1%,c%)=1 
PAUSE 1 
ENDIF 
NEXT 1% 
NEXT c% 


L'instruction PAUSE 1 évite que les derniers blocs ne soient affichés 
trop rapidement. Vous pouvez la retirer si vous trouvez qu’elle ne 
sert à rien. Vous pouvez faire varier le nombre de blocs affichés 
aléatoirement, en modifiant la variable nb_blocs% (elle contient 395 
dans le programme d'exemples). 


Affichage d'une image en diagonale 


Les routines d'affichage en diagonale donnent toujours un résultat 
agréable à regarder, mais elles sont un peu plus difficiles à program- 
mer que les autres. 

Nous avons vu que l’écran est divisé en 400 blocs. Ces blocs sont 
organisés en 20 lignes et en 20 colonnes. C’est une situation idéale 
qui simplifie considérablement la programmation. Les diagonales 
sont à 45 degrés. Pour tracer une diagonale, il faut partir d’un bloc 
graphique, puis décrémenter régulièrement la position du bloc cou- 
rant avant d'arriver au bord de l’écran. La diagonale commençant au 
bloc (10,10) est constituée des blocs (10,10), (9,9), (8,8), … (1,1). 


PROCEDURE diagonale(1%,c%) 


REPEAT 
@aff_bloc(1%,c#) 
DEC c#% 

DEC 1% 


UNTIL (c%<1) OR (1%<1) 
RETURN 


La procédure DIAGONALE cesse le dessin lorsque le bloc à afficher 
sort des limites de l'écran, c’est-à-dire lorsque le numéro de ligne de- 
vient inférieur à 1, ou lorsque le numéro de colonne devient 
inférieur à 1. Cette technique trace une diagonale en direction du 
coin haut gauche de l'écran. On peut tracer des diagonales suivant 
d’autres directions (vers le coin haut droit, vers le coin bas gauche, 
ou encore vers le coin bas droit de l’écran). 


A titre d’exemple, la routine DIAGO BIS trace une diagonale en di- 


rection du coin haut droit de l’écran. Cette nouvelle routine s'arrête 

lorsque le bloc à afficher est hors de l'écran, c’est-à-dire lorsque le 
+ . + 7 + 4 1 

numéro de ligne est inférieur à 1, ou lorsque le numéro de colonne 

est supérieur à 20. 


PROCEDURE diago_ bis(1%,c#) 
REPEAT 
Gaff_bloc(1%,c%) 
INC c#% 
DEC 1% 
UNTIL (c%>20) OR (1%<1) 
RETURN 


Affichage d’une diagonale particulière 


Il y a 39 diagonales sur un écran. La diagonale 1 est située en bas et à 
gauche de l'écran. La diagonale 39 est située en haut et à droite de 
l'écran. Pour réaliser diverses routines d’affichage, il faut pouvoir af- 
ficher sélectivement n’importe quelle diagonale. 

La routine AFF DIAGONAL est capable d’afficher une diagonale de 
l'écran à partir de son numéro. 


PROCEDURE aff _diagonal (num) 
LOCAL Tigne* 
LOCAL colonne“ 


IF num#<=20 
ligne#=20 
colonne%=num# 

ELSE 


ligne#=40-num 
colonne%=20 


ENDIF 
@diagonale(ligne%,colonnes) 
RETURN 


Cette routine reconstitue la position du bloc de départ à partir du 
numéro de diagonale. 


Affichage en diagonale 
de la gauche vers la droite 


La procédure IMG_DIAGONALEL affiche une image en diagonale en 
partant de la gauche. Elle affiche les différentes diagonales les unes 
après les autres. La routine est très dupe car le travail a été décom- 
posé niveau par niveau. 
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PROCEDURE img diagonalel 
LOCAL d# 
FOR d#%=1 TO 39 
@aff diagonal (d#) 
PAUSE 1 
NEXT d# 
RETURN 


Affichage en diagonale 
de la droite vers la gauche 


La procédure IMG DIAGONALEZ affiche une image en diagonale en 
partant de la droite. La diagonale 39 est affichée en premier. 


PROCEDURE img_diagonale2 
LOCAL. ds 
L 
FOR d%=39 TO 1 STEP -1 
@aff_diagonal (d#) 
PAUSE 1 
NEXT d# 
RETURN 


Affichage d'une diagonale sur deux 


En affichant une diagonale sur deux, on obtient un effet graphique 
assez joli. La procédure AFF_2DIAGONALE affiche une image à partir 
de la gauche. Elle a été écrite en modifiant la procédure IMG DIAGO- 
NALEL Vous pourrez modifier de la même manière la procédure 
IMG_DIAGONALEZ pour obtenir un affichage à partir de la droite. 


PROCEDURE aff 2diagonale 

LOCAL d“ 

FOR d#%=1 TO 39 STEP 2 
Gaff_diagonal(d#) 
PAUSE 1 

NEXT d# 

FOR d%= 2 T0 38 STEP 2 
@aff diagonal(d#) 
PAUSE 1 

NEXT d# 

RETURN 


Bibliothèque d'images 


Vous pouvez utiliser RC_COPY pour créer une petite bibliothèque 
d'images. Le principe de base est de dessiner des images avec un logi- 
ciel de dessin type Degas Elite, puis de charger en mémoire l’image 
écran générée par le logiciel graphique. 11 suffira ensuite d'utiliser 
RC_COPY pour recopier Les images sur l’écran physique. 

La procédure LOAD_ IMAGE charge l’image nom$ à l'adresse adr_ecr“. 
Si cette variable ne contient pas l'adresse d’une zone mémoire de 
32000 octets préparée avec MALLOC ou VARPTR, vous risquez de pro- 
voquer un superbe plantage de la machine. 
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PROCEDURE load images (nom$) 
OPEN "I",#1,nom$ 


SEEK #1,34 
BGET #1,adr ecr“, 32000 
CLOSE #1 

RETURN 


La position et la taille des images doivent être mémorisées dans un 
tableau numérique. Ces données doivent être chargées dans le ta- 
bleau au début du programme. Ce peut être fait avec des instructions 
DATA, ou en lisant le contenu d’un fichier. 


DIM image#(100,4) 
! image%(n,1) = position x 


! jmage%(n,2) = position y 
! jmage%(n,3) = largeur (tx) 
‘ jmage%(n,4) = hauteur (ty) 


La procédure AFF_IMAGE affiche à la position (x%,y*) de l'écran, 
l'image numéro n%. L'image Degas Elite doit être chargée en mémoi- 
re à l’adresse adr ecr“. 


PROCEDURE aff_image(x%,y#,n%) 

LOCAL px%, py#% 

LOCAL tx%, ty 

px% = image#(n%, 1) 

py% = image#(n%,2) 

tx% = image%(n%,3) 

ty% = image%(n%,4) 

RC COPY adr ecr%,px%,py#,tx%,ty# TO XBIOS (4) ,x%,y* 
RETURN 


Extension de la bibliothèque d'images 


Le système de gestion de bibliothèque d’images que nous venons de 
voir ne peut pas en gérer beaucoup. On est vite limité par la taille 
maximale d’une image. On peut avoir davantage d'images en travail- 
lant sur plusieurs fichiers Degas Elite. LOAD_IMAGE doit être modi- 
fiée pour charger une image Degas à une adresse particulière. 


PROCEDURE load images (nom$,adr_img*) 
OPEN "I",#1,nomÿ 
SEEK #1,34 
BGET #1,adr img, 32000 
CLOSE #1 
RETURN 


Le tableau image%() doit contenir une case supplémentaire pour 
contenir le numéro d’écran de l’image n%. L'exemple déclare un ta- 
bleau de 100 images, mais il peut être beaucoup plus grand avec ce 
système d'écrans multiples (1 000 images par exemple). 


DIM image%(100,5) 


Les nouveaux écrans doivent être créés au début du programme. Les 
adresses peuvent être mémorisées dans un tableau. La réservation de 
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zone mémoire se fait avec l’instruction MALLOC. L'exemple suivant 
réserve de la place mémoire pour 4 images. 


DIM adr ecran%(4) 

FOR i%=1 TO 4 
adr_ecran%(i%)=MALLOC(32000) 

NEXT i% 


Attention: 4 écrans de 32000 octets représentent 128 000 octets. Il est 
possible que le système manque de mémoire (surtout sur 520) si la 
mémoire est déja bien encombrée (programme important, tableaux 
de grande taille, nombreux accessoires, programmes résidents, etc.) 
Pour plus de sécurité, il faut contrôler la bonne exécution des réser- 
vations mémoire. 


FOR i#=1 TO 4 
adr%=MALLOC(32000) 
IF adr%=0 
PRINT "Erreur mémoire" 
END 
ENDIF 
adr ecran%(i#)=adr# 
NEXT i% 


Une fois le programme terminé, la mémoire réservée doit être libé- 
rée. Cette opération se fait avec l'instruction MFREE 


FOR i%=1 TO 4 

VOID MFREE(adr ecran%(i%)) 
NEXT i% £ 
La procédure AFF _ IMAGE s’utilise toujours de la même manière pour 
le programmeur. Par contre, il y a une différence importante au ni- 
veau interne: la routine détermine l’adresse de l’image DEGAS_ ELITE 
avant d’appeler l’instruction RC_COPY. | 


PROCEDURE aff_image(x#%,y#,n%) 
LOCAL px, py% 
LOCAL tx%, ty# 
LOCAL num image 
LOCAL adr_img* 


px% = image%(n%,1) 
py# = image#(n%,2) 
tx% = image%(n%,3) 
ty% = image#(n%,4) 


num_img% = image*(n%,5) 

adr_img%=adr ecran%(num_img*) 

RC_COPY adr_img%,px%,py#, tx, ty# TO XBIOS(4),x%,y% 
RETURN 


Une image est définie par 5 paramétres: position X, position Y, lar- 
geur (tx), hauteur (ty) et numéro de l’image Degas contenant cette 
image. 

Les positions des images peuvent être définies en mémoire dans des 
lignes de DATA. 

La valeur 1 sert d’indicateur de fin de données. 


images : 

DATA px,py,tx,ty,num image 
DATA 10,10,32,32,1 

DATA 80,10,12,17,1 

DATA 10,10,32,32,2 

DATA -1 


La routine INIT_IMAGES lit les informations stockées dans les lignes 
de DATA et les stocke dans le tableau image%(). La variable 
nb_images* contient le nombre d’images lues. 


PROCEDURE init images 
LOCAL px%,py#%, tx%, ty% 
LOCAL num_img% 


LOCAL n% 
n%=0 
RESTORE images 
DO 
READ px% 
EXIT IF px#=-1 
INC n% 


READ py#%,tx%, ty# 

READ num_ img“ 
image%(n%,1)=px# 
image%(n%,2)=py# 
image%(n%,3)=tx% 
image%(n%,4)=ty% 
image#(n%,5)=num img* 


LOOP 
nb_images%=n# 
RETURN 


Le chargement des images Degas doit se faire au début du program- 
me, mais aprés la réservation mémoire. L'exemple charge une biblio- 
thèque d’images utilisée par un mini-jeu de rôle. 


@load ecran("OBJETS.PI1", adr_ecran#(1)) 
@load ecran("ARMES.PI1",  adr ecran“(2)) 
@load_ ecran("MONSTRE.PI1", adr ecran%(3)) 
@load ecran("VILLE.PI1", adr_ecran%(4)) 


Scrolling d’une zone de l'écran 


Une routine de scrolling permet de simuler le déplacement d’une 
fenêtre virtuelle sur une image de grande dimension. Au point de 
vue technique, il s’agit d’un affichage rapide de bloc d'images. L'ins- 
truction RC_COPY permet de réaliser cela facilement. 

Ii faut travailler très rapidement pour obtenir un scrolling de grande 
dimension parfaitement fluide. C’est impossible à réaliser avec 
RC COPY sur uñ ST, car la routine est trop lente. On ne peut obte- 
nir que des scrollings de toutes petites dimensions. L'exemple 
présenté dans cet article ne fonctionne correctement que sur un 
STE, ou un MEGA ST avec blitter actif. 

La routine AFF ZONE affiche au milieu de l'écran un bloc graphique 
de 192x64 pixels. Ce bloc graphique provient d’un écran virtuel si- 
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tué à l’adresse adr ecr%. La routine prend le bloc situé à la posi- 
tion (px%,py*#) de l'écran virtuel et le copie à la position (64,68) de 
l'écran visible. Afin d'éviter des bavures vidéo, AFF_ZONE attend que 
la barre synchronisation vidéo ne soit pas sur l’écran pour réaliser le 
transfert de pixels (grâce à l’instruction VSYNC). 


PROCEDURE aff zone(px%,py#) 

VSYNC 

RC_COPY adr ecr%,px%,py#,192,64 TO XBI0S(2),64,68 
RETURN 


L'exemple suivant effectue un scrolling vertical (du haut vers le bas) 
de 101 pixels. Il est réalisé en recopiant 101 fois une partie de l’écran 
adr_ecr% sur l'écran en changeant à chaque fois la position du bloc 
graphique d’un pixel. 

L'instruction BOX affiche un rectangle graphique autour de la zone 
de scrolling. Ce rectangle n’a pas de réélle utilité pour le scrolling. Il 
est juste là pour des raisons esthétiques. L'esthétisme est une chose 
importante en informatique, quoi qu’en pensent beaucoup ge pro- 
grammeurs. 


COLOR 2 BOX 63,67,256,132 
FOR py#=0 TO 100 

Gaff zone(100,py#) 
NEXT py% 


Pour réaliser un scrolling du bas vers le bas, il faut afficher les blocs 
graphiques dans le sens inverse. 


FOR py#=100 TO Q STEP -1 
@aff_zone(100,py#) 
NEXT py% 


La vitesse de scrolling dépend du pas d’incrémentation des pixels. Le 
pas d’incrémentation est le nombre ajouté à une position d’affichage 
pour obtenir une nouvelle position. Il était de 1 dans les exemples 
précédents. Vous pouvez augmenter la vitesse de scrolling en aug- 
mentant le pas d’incrémentation. L'exemple suivant utilise un pas 
d’incrémentation de 2, afin de doubler la vitesse de scrolling. 


FOR py%=1 TO 100 STEP 2 
@aff_zone(100,py#) 
NEXT py*# 


Vous pouvez aussi vous amuser à réaliser un scrolling double en mo- 
difiant simultanément les positions X et Y du bloc graphique. 


FOR i%= 0 TO 199 
Qaff_zone(px%,py#) 
INC px% 

INC py% 

NEXT i% 


Encore plus fort: faites un scrolling double avec des pas d’incrémen- 
tation différents pour les deux axes. 


px#%=0 

py#=0 

FOR i%= 0 TO 150 
@aff_zone (px%,py%) 
ADD px%,2 
INC py 

NEXT i% 


Que vous utilisiez un blitter ou non, il est impossible de réaliser un 
scrolling plein écran suffisamment rapide avec l'instruction RC_COPY. 
Cela ne vous en empêche pas de l’utiliser pour réaliser divers petits 
effets graphiques. Le nom d’un logiciel accompagné d’un petit dessin 
peut apparaître en scrollant dans une petite fenêtre. Un long texte 
peut être visualisé par petits bouts dans une fenêtre. Une série 
d'icônes peuvent défiler sur l'écran. Certains jeux d'aventure utili- 
sent une routine de scrollings pour faire défiler doucement leurs di- 
vers textes. 


Rafraîchissement de fenêtres graphiques 


Lorsque vous modifiez les caractéristiques d’une fenêtre graphique 
GEM (taille, position, déplacement dans la fenêtre avec les ascen- 
seurs, etc.), la fenêtre est redessinée. Cette opération (redraw dans la 
terminologie GEM, redessin, ou encore rafraîchissement) peut être 
réalisée par l'instruction RC_COPY. 

Une fenêtre graphique’est définie par ces paramètres écran (position 
de la fenêtre sur l'écran, taille de la fenêtre visible), et par un pa- 
ramétre interne (position de la fenêtre visible par rapport à la fenêtre 
virtuelle). La fenêtre virtuelle est stockée quelque part en mémoire. 


fenetre : Adresse mémoire de la fenêtre virtuelle; 


xpos : Position X de la fenêtre visible par rapport à la fenêtre 
virtuelle; 

ypos  : Position Y de la fenêtre visible par rapport à la fenêtre 
virtuelle; 

tx : Largeur de la fenêtre visible; 

ty : Hauteur de la fenêtre visible; 

px : Position X de la fenêtre visible sur l'écran; 

py : Position Y de la fenêtre visible sur l’écran. 


RC COPY fenetre, xpos, ypos, tx, ty TO XBIOS(2), px, py 
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Manipulez les pixels 


Les fonctions graphiques logiques du GFA Basic permettent de 
réaliser de nombreux effets graphiques (affichage de sprites, 
vidéo inverse, effets spéciaux, etc.) Découvrons-les ensemble. 


Fonctions graphiques de base 


Le GFA Basic peut stocker en mémoire et afficher des blocs gra- 
phiques grâce aux instructions GET et PUT. L'instruction GET permet 
de stocker un bloc graphique dans une variable alphanumérique, 
alors que PUT permet d'afficher le contenu graphique de la variable 
n'importe où sur l'écran. 


GET x1,y1,x2,y2,img$ 
PUT x,y,img$ 


L'instruction PUT recopie intégralement sur l’écran les pixels mémo- 
risés dans la variable img$. On peut aussi. mélanger ces pixels de 
l’image avec ceux de l’écran. Ce mélange peut se faire de différentes 
manières grâce à ce que l’on appelle des opérateurs graphiques lo- 
giques. ; 


Les opérateurs graphiques logiques 


Les opérateurs graphiques logiques sont des fonctions graphiques qui 
peuvent faire «fusionner» plusieurs pixels entre eux au niveau des 
couleurs. Les opérateurs graphiques logiques sont des fonctions qui 
servent à mélanger deux images entre elles. Le résultat obtenu dé- 
pend des images, mais aussi du type d’opérateurs graphiques utilisé 
Le mélange se fait pixel par pixel. Pour chaque pixel, la couleur 
résultante dépend de la couleur initiale, de la nouvelle couleur et de 
l'opérateur logique. Les opérations entre couleurs de pixels se font au 
niveau binaire, c’est-à-dire que les opérateurs graphiques logiques tra- 
vaillent bit à bit. Les opérateurs binaires les plus utilisés sont AND, 
OR, XOR et NOT. 


Opérateur graphique logique AND 


Lorsqu'on applique l'opérateur AND à deux bits, le résultat ne vaut 
1 que si les 2 bits sont à 1. 


0 AND 0 
O AND 1 


0 
0 


1 AND 0 
1 AND 1 


0 
1 


Lorsque l’opérateur graphique logique AND est appliqué à 2 pixels, 
le résultat dépend du codage binaire de la couleur des pixels. 

Par exemple, en appliquant l'opérateur graphique AND sur un pixel 
de couleur 13 et un pixel de couleur 6, on obtient un pixel de cou- 
leur 4. 


1101 (13 en décimal) 
0110 (06 en décimal) 
---- AND 

0100 (04 en décimal) 


Mise en œuvre de l'opérateur logique AND 


Pour effectuer une opération graphique logique AND entre deux 
images, il faut stocker l’une des images dans une variable alpha- 
numérique avec l'instruction GET, puis l'afficher sur l’autre image 
avec l'instruction PUT en spécifiant le paramètre supplémentaire 1. 


GET x1,y1,x2, y2, img$ 
PUT px,py,img$,1 


Ce petit programme fait une opération logique AND entre l’image 
définie par les points (x1.y1,x2,y2) et l’image commençant aux coor- 
données (px,py). Après son exécution, l’image commençant aux co- 
ordonnées (px,py) est la résultante des 2 images de départ. 


Intérêt de l'opérateur logique AND 


L'opérateur AND est très pratique pour réaliser des affichages en 
ombre chinoise. Prenons une image basse résolution faite unique- 
ment avec des pixels de couleur 0 et 15. En affichant cette image sur 
l'écran avec l’opérateur graphique logique AND, on observe un 
phénomène très important: les pixels de couleurs O sont bien visibles 
sur l'écran, mais ceux de couleur 15 ont disparu. 

La couleur 15 se code 1111 en binaire, et la couleur O se code 0000 
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en binaire. Lorsque la routine d’affichage à fait un AND logique en- 
tre les pixels de l’écran et ceux de l’image de test, tous les pixels 
ANDés avec la couleur O se sont retrouvés à 0, alors que tous les 
ANDés avec la couleur 15 n’ont pas été modifiés. 


n AND 0000 
n AND 1111 


0 (0000 
n (1111 


0 en décimal) 
15 en décimal) 


On appelle cette technique affichage en ombre chinoise car elle ne 
permet d'afficher que des images d’une seule couleur. 


Programme de démonstration 
de l'opérateur logique AND 


Avant d'étudier le programme de démonstration de l’opérateur gra- 
phique logique AND) il faut savoir que le GFA Basic utilise sa pro- 
pre table de couleurs. En effet, après une instruction DEFFILL 2 il 
tracera des rectangles graphiques de couleur 1, et non 2. Voici la 
table de conversion couleurs réels/couleurs GFA Basic: ’ 


Couleurs réelles 0 1 23 45 67 89 10 11 12 13 14 15 
Couleurs GFA Basic 0 2 3 6 4 7 5 8 9 10 11 14 12 15 13 1 


Les seules couleurs qui ne sont pas modifiées sont les couleurs 0,4 et 
12. En fait, il ne s’agit pas d’un bug du GFA Basic, mais du système 
graphique VDI présent dans les ROMs du STE. Il faut utiliser la 
couleur 1 pour obtenir à l’écran la couleur 15. Attention: les logiciels 
de dessin graphiques travaillent avec les véritables numéros de cou- 
leurs, c’est-à-dire que les pixels tracés avec la couleur 15 sont en cou- 
leur 15. 

Le programme de démonstration affiche une petite image constituée 
d’une bande de couleur 0 et d’une bande de couleur 15 (couleur 1 
pour le GFA Basic). Cette image est stockée dans la variable alpha- 
numérique image$. Elle est affichée à la position (100,10) grâce à 
l'instruction PUT. Elle est ensuite affichée avec l'opérateur logique 
AND à la position (200,10). 


DEFFILL 2,2,2 
PBOX 0,0,319,199 
1 

DEFFILL 0,1 

PBOX 10,10,60,60 
DEFFILL 1 

PBOX 20,20,50,50 
DEFFILL 0 

PBOX 30,30,40,40 
l 


GET 10,10,60,60,image$ 
VOID INP(2) 


PUT 100,10, image$ 
VOID INP(2) 
! 


PUT 200,10, image$, 1 
VOID INP(2) 


END 


En exécutant ce programme, vous pourrez vérifier que les pixels de 
couleur 0 sont affichés sur l’écran et que les pixels de couleur 15 ont 
disparu. Cette technique fonctionne aussi en moyenne et haute réso- 
lution, mais les numéros de couleurs changent. Etant donné que les 
couleurs en moyenne résolution sont codés sur 2 bits, il faut travail- 
ler avec les couleurs 0 et 3 (0 et 6 en tenant compte de la bug des 
couleurs VDI). De même pour la haute résolution, il faut travailler 
avec les'couleurs 0 et 1 (0 et 2 pour tenir compte de la bug des cou- 
leurs VDI). 


Opérateur graphique logique OR 


Lorsqu'on applique l'opérateur OR à deux bits, le résultat ne vaut 1 
que si au moins l’un des deux bits est à 1. 


OCRO 
ORI 
10ORO 
1CRI1 


[l 
H & b © 


En appliquant l'opérateur graphique OR sur un pixel de couleur 13 
et un autre de couleur 6, on obtientun pixel de couleur 15. 


1101 (13 en décimal) 
0110 (06 en décimal) 
anse DR à 

1111 (15 en décimal) 


Les propriétés importantes de l'opérateur graphique logique OR 
sont les suivantes: 


n OR 0000 
n OR 1111 


(ll 


n 
1111 


Démonstration de l'opérateur logique OR 


L'opérateur graphique logique OR est obtenu de la manière suivante: 
PUT px,py,image$,7. Le même programme de démonstration que 
AND donne le résultat suivant: tous les pixels de couleurs 15 sont 
visibles après l'affichage en mode OR, alors que tous les pixels de 
couleurs 0 ont disparu. C’est un résultat inverse de celui obtenu avec 
l'opérateur logique AND. 


DEFFILL 2,2,2 
PBOX 0,0,319,199 
DEFFILL 0,1 

PBOX 10,10,60,60 
DEFFILL 1 

PBOX 20,20,50,50 
DEFFILL 0 

PBOX 30,30,40,40 


GET 10,10,60,60, image$ 
VOID INP(2) 


PUT 100,10, image$ 
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VOID INP(2) 


PUT 200,10, imagef,7 
VOID INP(2) 


END 
De la même manière que pour l'opérateur AND, on peut utiliser 


l'opérateur OR en moyenne et haute résolution en changeant le 
numéro des couleurs. 


Opérateur logique XOR 


Lorsqu'on applique l'opérateur XOR à deux bits, le résultat ne vaut 
1 que si seulement l’un des deux bits est à 1. 


OORO=0 
OUR1=1 
10RO=1 
10R1=0 


En appliquant l’opérateur graphique OR sur un pixel de couleur 13 
et un de couleur 6, on obtient un pixel de couleur 11. 


1101 (13 en décimal) 
0110 (06 en décimal) 
-—— OR 

1011 (11 en décimal) 


L'opérateur graphique logique XOR est réversible, c’est-à-dire que 
l’on permute une opération logique pour revenir aux données de 
départ (13 XOR 6 = 1l;et11 XOR 6 = 13). 


n XOR a 
b XOR a 


n 


Utilisation de l'opérateur logique XOR 


L'intérêt de XOR est de pouvoir afficher un objet sur l’écran, et de 
revenir à l’image initiale en réaffichant l’objet une seconde fois. Cela 
peut paraître curieux, mais fonctionne bien. Le programme de 
démonstration suivant vous convaincra. : 


DEFFILL 2,2,2 
PBOX 0,0,319,199 


DEFFILL 0,1 

PBOX 10,10,60,60 
DEFFILL 1 

PBOX 20,20,50,50 
DEFFILL 0 

PBOX 30,30,40,40 

GET 10,10,60,60, imagef 
VOID INP(2) 


PUT 100,10, image$ 


VOID INP(2) 


! 

D RRRR ARR AR ARRETE RE 
! * AFFICHAGE MODE XOR * 
LR RRRRRRRROR RIRE RARE 
PUT 200,10, image$,6 

VOID INP(2) 


LOAKKRKERERERRERERRRERRAREX 


‘ x REAFFICHAGE MODE XOR * 
LOKKKKKXKERKERKEREERKRRRÉREX 
PUT 200,10, imagef, 6 

VOID INP(2) 

END 


Les premiers jeux d’arcades sur micro-ordinateur utilisaient le mode 
P: ] 
graphique XOR pour afficher leurs sprites. Le résultat était plutôt 
curieux au niveau des couleurs, mais cela fonctionnait rapidement et 
les utilisateurs de l’époque n’en demandaient pas plus. 

poq pas P 


Opérateur logique NOT 


L'opérateur logique NOT est un peu particulier, puisqu'il ne travail- 
le que sur un seul nombre. Les bits du nombre sont inversés (les 0 
deviennent des 1, et les 1 deviennent des O). 


NOT 1 = 0 
NOT O0 = 1 
1101 (13 en décimal) 


ns: NOT 
0010 (2 en décimal) 


On obtient le mode logique NOT en donnant le paramètre sup- 
plémentaire 12 à l'instruction graphique PUT. 


PUT px,py,image$, 12 


L'opérateur logique NOT sert notamment à inverser les couleurs 
d’une image. Cela peut être utile pour afficher des zones d'écran en 
vidéo inverse. Le programme de démonstration suivant inverse une 
image de test. 


DEFFILL 2,2,2 
PBOX 0,0,319,199 


DEFFILL 0,1 
PBOX 10,10,60,60 
DEFFILL 1 

PBOX 20,20,50,50 
DEFFILL 0 à 
PBOX 30,30,40,40 





GET 10,10,60,60, image$ 
VOID INP(2) 


PUT 100,10, image$ 
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VOID INP(2) 
PUT 200,10, imagef, 12 
VOID INP(2) n 


END 


Les autres opérateurs graphiques logiques 


Le GFA possède 16 opérateurs graphiques logiques. Nous n’avons 
présenté que les 4 principaux. Vous pourrez trouver la description 
des 12 autres modes à la page 196 du manuel du GFA Basic 3.0. 


LJ + e e 
Applications des opérateurs graphiques logiques 
Elles sont très nombreuses. Nous allons vous en présenter plusieurs 
que vous pourrez réutiliser dans vos programmes. 


Visualisation d'une icône en vidéo inverse 


La vidéo inverse est un moyen pratique de visualiser une option ou 
une commande en cours d’exécution. Par exemple, le bureau de 
GEM visualise en vidéo inverse le fichier courant, c’est-à-dire le fi- 
chier sur lequel l'utilisateur vient de cliquer. Vous pouvez faire la 
même chose en utilisant l'opérateur graphique logique NOT. 

La vidéo inverse peut être utilisée pour visualiser une action en 
cours. Supposons que vous ayez programmé un petit soft de gestion 
utilisant un système de commande à base d’icônes. Lorsque lutilisa- 
teur clique sur une icône, celle-ci passe en vidéo inverse et ne revient 
en vidéo normale que lorsque le traitement est terminé. 

Le programme suivant montre comment ce système peut fonction- 
ner. Lorsqu’une routine de traitement est exécutée, elle efface la sou- 
ris, saisit le dessin: de l'icône dans une variable alphanumérique et 
réaffiche ce dessin en vidéo inverse grâce à l’opérateur graphique lo- 
gique NOT. Une fois le traitement achevé, la routine réaffiche 
l’icône normale avec PUT. 


PROCEDURE exec_ impression 
HIDEM 

GET x1,y1,x2,y?,iconef 
PUT x1,y1,iconef, 12 


ss... 


PUT x1,yl,icone$ 
SHOWM 
RETURN 


Cependant, au lieu d’afficher l'icône en vidéo inverse, vous pouvez 
vous amuser à afficher une petite image visualisant le traitement en 
cours. Pour une impression, ce peut être une plume et du papier. 
Pour un tri, un facteur regardant une énorme pile de papier d’un air 
découragé, etc. 


Affichage d'une police de caractères 


L'opérateur graphique AND permet de programmer une routine 


d'affichage de caractères. On peut ainsi créer de nouveaux caractères 
de n'importe quelle taille et les utiliser dans les programmes en GFA 
Basic. 

Nous avons vu que l’opérateur graphique AND peut afficher des 
dessins dont seuls les pixels en couleur 0 sont visibles. Si ces pixels 
visibles forment la matrice d’un dessin, il suffit alors d’afficher le 
dessin d’un caractère en mode AND pour voir apparaître celui-ci. La 
matrice du caractère doit être dessiné dans la couleur 0, et les autres 
pixels doivent être en couleur 15. 


PUT 100,100,caracteref,1 


Les différentes matrices doivent êtres stockées dans un tableau alpha- 
numérique. Pour afficher le caractère n, il suffit d'afficher le dessin 
numéro N. 


DIM car$(255) 
PUT 100,100,car$(n) 


Les caractères sont toujours affichés avec la couleur 0. Cela peut pa- 
raître contraignant, mais il n’en est rien. Comme par hasard, beau- 
coup de logiciels commercialisés n’affichent que des caractères en 
couleur 0 (ou en couleur 15). 

La meilleure manière de créer vos nouveaux caractères est d’utiliser 
un logiciel de dessin type Degas Elite. Une fois les caractères dessinés, 
il faut utiliser un programme de saisie générant un fichier binaire. 


LORRRRÉRARAKAKEERRRRRRAARREREX 


CR GENERATEUR DE À 
‘ x POLICE DE CARACTERES * 
LORKRKEKKKRRERRRRRRAKERERERER 
RESERVE 50000 

DIM car$(255) 

@charge degas("POLICE.PI1") 
Gsaisie car 

@sauve police("POLICE.CAR") 
END 


LORRAKAKKERRERERRRÉRRARRARRAREE 


! # POSITION DES CARACTERES * 
DL OKAKEKEKRERERERRRRRERERREEA EEE 
‘ DATA px, py, num car 
! -1 = fin de DATA 
DATA 0,0,65 
DATA 8,0,66 
DATA 16,0,67 
DATA 24,0,68 
DATA 32,0,69 
DATA -1 
! 
PROCEDURE saisie car 
LOCAL px,py,n 


DO 

READ px 

EXIT IF px=-1 
READ py 
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READ n 
GET px,py,px+7,py+7,car$(n) 
LOOP 

RETURN 

1 

PROCEDURE sauve police(nom$) 
LOCAL ï,1 
L 


OPEN "o",#1,nom$ 
FOR i=0 TO 255 
1=LEN(car$(i)) 
IF 1=0 
OUT #1,0 
ELSE 
OUT #1,1 
BPUT #1,VARPTR(car$(i)),1 
ENDIF 
NEXT i 
RETURN 


Le programme suivant charge la police de caractères POLICE.CAR en 
mémoire, et l’utilise pour afficher un message. 


LOXAKKKKAKERARE RER AMAR MR ARR 


or AFFICHAGE x 
" # POLICE DE CARACTERES * 
MELLE LLLELLSLLLLSLSSSLLSLSSSSS. 
RESERVE 50000 

DIM car$(255) 

L 


@charge pol ice("POLICE.CAR") 

DEFFILL 2 

PBOX 0,0,319,199 

@afftext(30,30,"HELLO WORLD") 

VOID INP(2) 

END 

PROCEDURE afftext(px,py,m$) 
LOCAL i,xaff,n 


xaff=px \ 
FOR i=1 TO LEN(m$) 
c$=MID$ (m$, i,1) 
n=ASC(c$) 
IF LEN(car$(n))<>0 
PUT xaff,py,car$(n),1 
ENDIF 
ADD xaff,8 
NEXT i 
RETURN 
PROCEDURE charge police(nom$) 
LOCAL i,1 
OPEN "i",#1,nom$ 
FOR i=0 TO 255 
1=INP(#1) 


IF 1<>0 
car$(i)=SPACES (1) 
BGET #1,VARPTR(car$(i}),1 
ENDIF 
NEXT i 
RETURN 


L'affichage d'un message complet se fait caractère par caractère. La 
routine AFF _MESSAGE affiche un message à la position (px%,py%). Il 
peut arriver que le programme tente d'afficher un caractère qui n’a 
pas été redéfini. La routine d’affichage teste donc la taille de car$(n) 
pour vérifier si le dessin du caractère n existe. Cette routine d’afficha- l 
ge fonctionne avec des caractères d’une largueur de 8 pixels, mais 
rien ne vous empêche de la modifier pour des caractères plus larges. 


Police de caractères de couleur 15 


En affichant les caractères avec l’opérateur graphique logique AND, on 
obtient des caractères de couleur 0. En utilisant l’opérateur gra- 
phique logique OR, on peut obtenir des caractères de couleur 15. Il 


faut alors modifier le dessin des caractères. Les matrices doivent être 
dessinées en couleur 15 sur un fond de couleur 0. 


Affichage dans n'importe quel sens 


La routine AFFTEXT présenté plus haut affiche les textes de la gauche 
vers la droite. Vous pouvez la modifier pour qu’elle affiche les textes 
vers le bas ou vers le haut en incrémentant ou décrémentant la posi- 
tion py d’affichage. La routine AFFTEXTZ2 affiche le texte en direction 
du bas. Après chaque affichage, la position courante d’affichage est 
augmentée de 8 pixels. 


PROCEDURE afftext2(px,py,m$) 
LOCAL i 

LOCAL xaff 

LOCAL yaff 

LOCAL n 


xaff=px 

yaff=py 

FOR i=1 TO LEN(m$) 
c$=MID$(m$,i,1) 
n=ASC(c$) 
IF LEN(car$(n))<>0 

PUT xaff,yaff,car$(n),1 

ENDIF 
ADD yaff,8 

NEXT. i 

RETURN 


La routine AFFTEXT3 affiche le texte en direction du haut de l'écran. 
Après chaque affichage, la position y d’affichage est diminuée de 8 
pixels. 


PROCEDURE afftext3(px,py,m$) 
LOCAL 
LOCAL xaff 
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LOCAL yaff 
LOCAL n 


xaff=px . 
yaff=py 
FOR i=1 TO LEN(m$) 
c$=MID$ (m$,i,1) 
n=ASC(c$) 
IF LEN(car$(n})<>0 
PUT xaff,yaff,car$(n) ,1 
ENDIF 
SUB yaff,8 
NEXT i 
RETURN 


Une variable SENS AFFICHAGE peut contenir le type courant d'affi 


chage. La routine générale d’affichage peut sélectionner une routine 
d'affichage spécifique en fonction du contenu de SENS_AFFICHAGE 
PROCEDURE affmessage(x,y,m$) 
SELECT sens affichage 
CASE 1 
Cafftext(x,y,m$) 
CASE 2 
Qafftext2(x,y,m$) 
CASE 3 
Cafftext3(x,y,m$) 
ENDSELECT 
RETURN 


En utilisant des méthodes plus complexes, on peut afficher des textes 
en suivant une forme géométrique, ou le bord d’une image. Le pro- 
blème est de déterminer l’algorithme calculant la position d’une let- 
tre quelconque. 


Disparition progressive d'une image 


En utilisant l'opérateur graphique logique AND, il est possible de faire 
disparaître progressivement une image. En affichant un masque fait 
de 2 couleurs (0 et 15) avec l’opérateur AND sur l’écran, on cache cer- 
taines parties de l'écran. Pour effacer progressivement une image, il 
faut afficher une série de masques avec de plus en plus de pixels de 
couleurs 0. Le dernier masque doit être entièrement en couleur ©. 


PUT px,py,masquel$, 1 
PAUSE t% 
PUT px,py,masque2$, 1 
PAUSE t# 
PUT px,py,masque3$,1 
PAUSE t# 
PUT px,py,masque4$, 1 


Les instructions PAUSE servent à diminuer la vitesse d’effacement de 
l'image. Sans ces temporisations, l'effacement se ferait trop rapide- 
ment pour être visible. Les masques d’effacement peuvent être géné- 
rés de manière aléatoire par une routine spécifique, mais aussi des- 
sinés avec un logiciel graphique. 


L'image est progressivement envahie par la couleur 0. Ce procédé 
d’effacement n’est donc valable que sur un fond de couleur 0. En 
remplaçant l'opérateur graphique logique AND par l'opérateur graphi- 
que logique OR, on obtient un effacement progressif en couleur 15. 
Cette autre technique n’est valable que sur un fond de couleur 15. 


Apparition progressive d'une image 


En inversant le processus, il est possible de faire apparaître progressi- 
vement une image, C’est une technique très utilisée par les program- 
meurs de jeu pour afficher Les titres de leurs logiciels. En général, ces 
titres sont affichés sur un fond de couleur 0, donc avec l’opérateur 
graphique AND. 

L'affichage est plus difficile à réaliser que l'effacement car il doit être 
réalisé dans un écran virtuel afin d'obtenir un bel effet visuel. Le pro- 
gramme suivant recopie l’écran dans un écran virtuel d’adresse 
adr ecr%. L'affichage sur l'écran physique est réalisé avec l’instruc- 
tion BMOVE. On peut aussi utiliser l'instruction RC_COPY. 


te=5 

adr_ecr*=MALLOC (32000) 

BMOVE XBI0S(2) ,adr_ecr%, 32000 

VOID XBIOS(5,L:adr_ecr%,L:XBI0S (2) ,-1) 


PUT px;py,image$ 

PUT px,py,masque1$, 1 

BMOVE adr ecr%,XB10S(2),32000 
PAUSE t# 

PUT px,py,image$ 

PUT px,py,masquel$, 1 

BMOVE adr_ecr%,XBIOS (2) , 32000 
PAUSE t% 

PUT px,py,image$ 

PUT px,py,masque1$,1 

BMOVE adr ecr#%,XB10S(2),32000 
PAUSE t*% 

PUT px,py,image$ 

PUT px,py,masque1$,1 

BMOVE adr_ecr%,XBI0S(2),32000 
VOID XBIOS(5,L:XBIOS(2),L:XBI0S(2),-1) 


On peut aussi remplacer les masques aléatoires par des masques 
géométriques générés par programme. On peut ainsi afficher une 
image sous la forme de petits cercles ou de petits rectangles s’agran- 
dissant pour reconstituer l’image complète. Cela peut aussi servir 
pour les effacements d'images. Avec des masques assez grands, on 
peut même faire une image qui s'affiche à partir d’un nom. Cela per- 
met de faire un effet très spectaculaire, mais qui prend beaucoup de 
place mémoire. 


Affichage de sprites de dimensions quelconques 


Un sprite est une image qui peut s'afficher sur un fond quelconque. 
Contrairement à l'affichage en ombre chinoise, les sprites doivent 
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être de plusieurs couleurs. On ne peut afficher un sprite avec un seul 
opérateur logique. Il faut faire deux opérations graphiques logiques à 
la suite. 

Un sprite est constitué d’un masque et d’une forme. La forme con- 
tient le dessin proprement dit du sprite, et le masque contient les in- 
formations sur les pixels de la forme devant être affichée. Le dessin 
du sprite est fait sur un fond de couleur 0. Le masque est un dessin 
de couleur 0 sur un fond de couleur 15. Les pixels en couleur 0 du 
masque correspondent à ceux de la forme devant être affichée. 

La technique à mettre en œuvre est la suivante: l’image résultante 
doit être de la couleur de la forme si le masque est à 0, et de la cou- 
leur du fond si le masque est à 15. L'affichage d’un sprite se fait pixel 
par pixel. Le principe est toujours le même: si le pixel de masque est 
À O, le pixel de forme est affiché; et si le pixel de masque est à 15, le 
pixel de l'écran n’est pas modifié On arrive à ce résultat en deux 
étapes: le masque est d’abord affiché avec l'opérateur logique AND, 
puis la forme est affichée avec l’opérateur logique OR L'affichage du 
masque se fait avec le mode logique AND. Les pixels de l’écran qui se 
trouvent en interaction avec les pixels du masque de couleur 0 se 
changent en couleur 0 (puisque n AND 0 = 0). Les pixejs de l'écran 
qui entrent en interaction avec les pixels en couleur 15 du masque ne 
changent pas de couleurs (puisque n AND 15 = n). On à alors une 
image en ombre chinoise de la forme à afficher. L'affichage de la for- 
me se fait ensuite avec le mode logique OR 

Les pixels de l'écran qui se trouvent en interaction avec les pixels de 
couleur 0 de l’image restent inchangés (puisque 0 OR n = n). Les pi- 
xels de l'ombre chinoise prennent automatiquement la couleur des 
pixels de la forme (puisque n OR 0 =n). 


PUT px,py,masquef, 1 
PUT px,py,forme, 7 


Fabrication automatique des masques 
et des formes 


Il n’est pas très facile de dessiner les formes et les masques des sprites. 


Pour éviter cela, le plus simple est de dessiner une seule image et 
d'écrire un petit programme générant automatiquement la forme et 
le masque du sprite. Cette technique est celle de la couleur transpa- 
rente. Le sprite est dessiné avec un logiciel graphique. L'une des cou- 
leurs (généralement la couleur 15) est dite transparente, c’est-à-dire 
qu’elle ne sera pas affiché à l'écran et correspond aux pixels de l’écran 
qui ne doivent pas être modifiés par l'affichage du sprite. 

Une fois le sprite dessiné avec une couleur transparente, il faut 
générer le masque et la forme. Le masque est généré en remplaçant la 
couleur transparente par 15, et les autres couleurs par 0. La forme est 
générée en remplaçant la couleur transparente par 0. Le programme 
suivant fabrique un masque et une forme à partir d’une image avec 
couleur transparente. Remarque: en raison du bug de couleurs du 
VDI, ce programme utilise la couleur 1 et non la couleur 15. 


x1=10 
y1=10 
x2=40 
y2=40 
trans#=1 


GET x1,y1,x2,y2,image$ 
@gen masque 

GET x1,y1,x2,y2,masquef 
PUT x1,y1,imageÿ 


@gen_forme 
GET x1,y1,x2,y2, forme 
END 


PROCEDURE gen masque 
LOCAL px,py 


FOR py=y1 TO y2 
FOR px=x1 TO x2 
IF POINT(px,py)=trans* 
PLOT px,py,1 
ELSE 
PLOT px,py,0 
ENDIF 
NEXT px 
NEXT py 
RETURN 
1 
PROCEDURE gen forme 
LOCAL px,py 


FOR py=yl1 TO y2 
FOR px=xl TO x2 
IF POINT(px,py)=transs 
PLOT px,py,0 
ENDIF 
NEXT px 
NEXT py 
RETURN 


Une fois le masque et la forme stockés dans les variables masquef et 
forme$, il ne reste plus qu’à les afficher ou à les sauver dans un fi- 
chier binaire pour une utilisation ultérieure. 


Des sprites dans n'importe 
quelle résolution 


On peut afficher des sprites dans n'importe quelle résolution à con- 
dition d’adapter le numéros des couleurs. 

En moyenne résolution, les masques doivent être de couleur O sur 
un fond de couleur 3, et les formes sont dessinées sur un fond de 
couleur 0. En haute résolution, les masques doivent être dessinés en 
couleur 0 sur un fond de couleur 1 et les formes sur un fond de cou- 
leur O. 


En créant un sprite avec une couleur transparente, on perd cette cou- 
leur qui ne peut être utilisée dans le dessin du sprite. 

Ce n'est pas très gênant en basse résolution, puisqu'il reste encore 
quinze couleurs. Par contre, il ne reste que trois couleurs en moyen- 
ne résolution, et 1 couleur en haute résolution. Il est donc préférable 
dé dessiner les masques des sprites à la main (c’est-à-dire avec un logi- 
ciel graphique) pour la moyenne et la haute résolution. On évite ain- 
si de perdre une couleur. 
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RE De 


Au lieu de perdre 
du temps à taper 
les listings des 
programmes, 
simplifiez-vous 
la vie en 
commandant 
la disquette 
BEST OF GFA, 
contenant tous les 
listings de ce 
numéro et des 
images Degas Elite 
utilisables avec les 
programmes 
graphiques. 


Voir bon de commande en page 50 


Le contenu de cette disquette est également 
disponible en téléchargement sur le serveur 


le nom de BESTGFA.TOS. 


3614 ATARI, sous la forme d'un ri portant 


De: avantages 
supplémentaires 
exclusivement réservés 
aux abonnés de 


Start micro 
magazine 


Votre abonnement vous donne 
accès à ” 3615 MICROHELP"'” 


Votre abonnement vous 
procurera des réductions 
intéressantes sur le 
téléchargement et l'achat de 
disquettes de logiciels du 
domaine public 


Votre abonnement vous fera 
bénéficier de tarifs 
promotionnels sur certains 
logiciels du commerce 


bonne tous et 
économisez immédiatement 


80 F 


Bulletin d'abonnement au verso 





O OUI, je m'abonne à -START 
MICRO MAGAZINE pour Un an à 
partir du numéro à paraitre 

(il numéros dont un double en 
juillet/août) au prix exceptionnel de 
360 F° au lieu de 440 F (prix au 
numéro) 

J'ai bien noté que je bénéficierai du 
service exclusif d'assistance  télé- 


matique 3615 MICROHELP. 


Ci-joint un chèque bancaire ou postal 
(exclusivement, pas de mandat) libellé 


à l'ordre de FC PRESS. 


es modalités de fonctionnement du service ains que voire 
code d'accès personnel vous seront communiqués dès 
l'ouverture du serveur. 

foffre valable pour la France seulement. Etranger nous 
consulter. 


Attention : 
envoyer ce bulletin et votre chèque à : 


FC PRESS 
57, rue Danton 
92300 LEVALLOIS-PERRET 





Nom (Es SE l 
Prénom ai] sd} L 4 l 
Adresse l l ones Gad nés sal] 


AA VAR Gt Li a + de al Pod dd 
Code postal ef | 1 1 
Ville | Le) | 


Dér=mmmmmmmnnnnnnn nn nnnnnnnnn ten donnee nn nn Rene ete en 


complét®” 


DOSSIER FALCON 
Présentation du Falcon 030 
Multimédia pour tous 


TOS 4.0 et MULTITOS 
SOS COURRIER 


Les réponses à vos questions 


ESSAI LOGICIEL 
L'anti-virus Ultimate Virus Killer 
Le traitement de texte Papyrus 


ai CRRENISME 
ogiciel de raytracin 
DKBTRACE à 
La couleur de À à Z 
TABLEURS 


Transférer vos données 
entre ST et PC. 


MUSIQUE 
Les messages MIDI 


n: CE 
EE 


ACTUALITE 
De nombreuses news Falcon 


SOS COURRIER 
Les réponses à vos questions 


MUSIQUE 
Les messages MIDI suite... 


PORTFOLIO 
Interface Midi Pocket Music 


BUREAUTIQUE 
Le tableur Graal Calc 3 


EDUCATION 
L'ordinateur 
est un jeu d'enfant 


SYNTHESE D'IMAGES 
Espaces de lumières 
Logiciel graphique 

yber Shadows 
Les nouveautés graphiques 


GRAPHISME 
Logiciel Persistence of Vision 1.0 
Mode d'emploi 
de Néochrome Master 


EDUCATIF 
Vive l’école 


COMPARATIF 
Consoles de jeu portables 


JEUX 
Les jeux de rôle 


INITIATION 
Les différentes types de virus 


PROGRAMMATION 
‘3 nouvelles polices 
de caractères en Gfa Basic 


TELEMATIQUE 
Les nouveautés du 
téléchargement 


LA DISQUETTE DU MOIS 
49 accessoires 
indispensables 


pc] 


JEUX 
Jeux d’aventures sur Micro 


TEST MATERIEL 
Fax Modem SUPREM-9624 


DOMAINE PUBLIC 
Sélection de 56 programmes à 
posséder absolument. 


TELEMATIQUE 
Les nouveautés en 
téléchargement 
Les jeux PC en téléchargement 


PROGRAMMATION 
Ecrivez “un logiciel dont 
vous êtes ares 
Animation dynamique 
en GFA Basic 
Fichiers à accés directs en 
Omikron 
Effets spéciaux es 
en Assembleur 


.DISQUETTE DU MOIS 
Le logiciel de dessin Néochrome 
Master 2.27 
Une bibliothéque d'images 


Pour commander, remplissez lisiblement ce bon (ou une a 
envoyez-le accompagné du règlement à : 


FC PRESS - 57, rue Danton - 92300 Levallois-Perret 


Je commande le n°1 [], le n°2 O] à 38 F le numéro. 
numéro(s) à 38 F = F +15 F de frais de port et 
d'emballage (30 F pour l'étranger et les DOM-TOM) par chèque à 
l’ordre de FC PRESS. 
Nom 
Prénom 
Adresse 


Code postal 
Ville 
Pays 
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Prenez les commandes CES 
3 meilleurs logiciels de simulation: 
Vroom, F19 Stealth AT LUE 
Silent Service !!! 


(avec la super commande Zoomer) 


>” 


